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1 , Aostract 

This program tests the KEllF (POP-ll Floating Instruction 
Set <FAOD* FSUBi FMUii and F0IV>) option with fixed nymber 
oattems* using each register at least cnee as the stack 
pointer, It also checks stack overflow and that the 
floating instructions can be InteruPted (by the console 
teletype), The program should be run for at least 2 passes 
with all switches down. 


2, requirements 


2,1 Eoulpment 

PDP-11 (KDHA) standard computer with KEllF option 


2.2 

2,3 

3, 

4. 

4.1 

4.2 
, 4,3 


Storage 

Program Storage • the routines use memory 0 • 17500 

Prel imlnary programs 
None 

EOAOING PROCEDURE 

Use standard proeedyre for ABS tabes, 

STARTING procedure: 

Control switch settings 

See 5.1,1 (all down for worst case testing) 

Starting address 

The program should always be started at 200, 


Program and/or operator action 


1) Load program Into memory using ABS loader, 

2) Load address 200, 

^ Set switches (see sec 5.1.1) All down for worst case 
Press start, 
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Descr iptlo?' 

5) The Intorupt test section wl!l type ,1;nr..fta— Lftnd om l ength 
I in?j 5 »-Oi^l^on tfio console teletype eve'y pass, 
iT'm ^ ^111 loop and bell will ring once every Pass, 

7) A ulnlmuin of two passes should always be run, 


5, operating procedure 


5,1 Operational switch settings 

At Sa 200, all switches down Is worst case testing, Each 
subtest will be looped UPon until completion of 256 passes 
of that subtest, The bell will ring ueon eenplttlon of a 
pass of the ent I re program, Alternate pass w||| run with 
the T-b|t set, 


5,1,1 Switch settings arej 

SM<15> s 1 ,,,,, HALT ON ERROR 
SW<14> » 1 , , , , , SCOPE UOOP 
SW<13> a 1 INHIBIT PRINTOUT 

SW<12> 5 1 ,,,,, INHIBIT TRACE TRAPPING 

SW<11> » 1 INHIBIT ITERATIONS Of SUBTEST 

SW<10> » 1 , . . , , BEl.1, ON ERROR 

0 BEUU ON PASS COMPLETE 

SW<09> = 1 , , , , , LOOP ON ERROR 

SW<08> =1 ,,,,, LOOP ON TEST IN SW<7!0> 

Caution! SW<8I0> are also used for ROM word match with RMil 
maintenance card. 


5,2 Subroutine Abstracts 


5,2,1 SCOPE 

This subroutine call (via a TRAP Instruction) |s placed 
between each subtest In the Instruction section. It records 
the starting address of each subtest as It Is being entered 
In location "LADS". If a scope loop Is requested, the 
current subtest will be looped uoon, SW<11> on a 1 Inhibits 
Iteration of subtests, The contents of "LADS" may be used 
to determine the last subtest successfully completed. 


5,2,2 HLT 

This routine (called by an emT Instruction) prints out an 
error message (See 6,1,), If SW<9> Is on a 1 and a HLT Is 
executed, the subtest wl | I be looped goon until 256 
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Descr iptlon 

consecutive gooa passes are completed, To InhlPlt typeoytsi 
cut SW<13> oc a 1, To ring the bell on an arror« put SW<10> 
0 n a 1 . 

5.2.3 VQP 

A NOP Is placed Just before each FIS Instruction, This 
allows the operator to patch In a HAI.T fgr debuaging 
purposes , 

5.2.4 TRTRaP 

If SH<12> Is on a 0, the T-bIt will he set pn alternate 
passes. When the T»b|t (s set, the processor traps after 
each Instruction, The first Instruction executed UPon 
trapping Is an "RTT" which returns to the Interrupted 
sequence of Instructions, This sequenes Is sontlnued Until 
the end of the program Is reached, 

5.2.5 TRAPCATCHER 

A ’*,+2” - "HAlT" sequence Is repeated from 0 - 776 tp Ostch 
any unexpected traps. Thus eny unexpected traps or 
^ . InteruPts wl I I HAtT at the vector ♦ 2 , 

5.2.6 FLOATING error TRAP (to 244) 

If a floatingpoint error (overflow* uhderflowi or divide by 
zero) was sxDectedi the vector wT 1 1 polht to a unique ISR 
within the sgbtest where the error occured which cheaHa the 
data on the sttoK(s), If an error was not anticipated, an 
erroneous trap wl M he detected In TRAPER, 

6, ERRORS 

6,1 Error printout 

The format is as follows! 

AQR PS SP ANSI ANS2 ANS3 ANS4 ANS5 ANS6 
Where 5 


From of 


Address of error hlt 
P rocessor Status 

Contents of Stack Pointer Register 
Error data read from the STACK(s), 
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Oescr I Dt1 on 

t^ese may be typed depending on the nymber 
following the HUT) e,g,, Hl.T*3 wog|d type ANSI thru 
ANS3i hut (by Itself) would stop after AOR|PS| and 
SP. 

To find the falling testi look at the listing above the 
address typed, In most eases the comment beside the HlT 
tells what was being cheeked and what was expeeted, 


6,2 Error recovery 

Restart at 200 


6,3 Error oognter 

An error count Is kept In "ERRORS" (LOC 1002), It can only 
be cleared from the console or by reloading the orogrami 


7, RESTRICTIONS 

None 


8, MISCELLANEOUS 
6,1 Execution t|mo 

Due to the random characteristic of the Interupt testsi the 
execution time can be half a minute or more, Howoven 
normally a bell w|l| ring within 15 seconds with all 
switches down, 


8,2 Stack Pointer 

Stack Is |n| tally set to 500 


8.3 Pass count 

A 32 bit (2 words) pass count Is kept In "PASSES" lUOC 
1004,1006), It can only be cleared from the console or by 
reloading the program, 
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8,4 Power Fall 

Each test can be power fal led with no errors. To use# start 
the test as usual and power down then yp at any tine, The 
proflram should typo "POWER" and continue to run from where 
the power fall Interypted with no other error typeouts, 


9, PROGRAM description 

This prooram tests al I the Instructions of the KUtF (rADO# 
FSUB. FMUL# and FDIV), AM registers are cheek to see If 
they function properly as the stack pointer# The prooram 
has many swbtests (the cede between 2 SCOPE statements) 
Which are run 256 times before continuing to the next, 
sw<u> on a 1 causes oaoh subtest to be ruh chlv once, 
SM<9> on a 1 enables loop on error, The address IGNT (1.0C 
1000) contains the Iteration count In the left byte and the 
test number In the right byte. All the subtests should be 
run sequential jy by starting at 200 not by starting at the 
beginning of the subtest, To loop on a partlouUr subtesti 
out the test number (see listing) In the right byte of the 
switch register and sw<8> on a 1, This test will be looped 
upon until SW<8> Is out on a 0 or the right byte Is ihanoed, 
If the test Is non*ex I stant# the program will be run as 
usual • 




DBKEA-A 

KEllf^ (PDP-11 nS> INSTRUCTION 

TE$ J MACY11.620 214AUG-72 12|07 PAGE 1 

« 

OBKE^ 

SNITCH 

OPTIONS AND assignments 




X 

2 


.TITUE 

maindec 

•11-OBKEA-A KElir (POP*ll FISI INSTRUCTION TESTS, 


3 


•ENABL 

4BS 



4 


ICOPYRIGHT 1972 

, digital equipment CORP.i MAYNARDi mass 




(PROGRAM BY ken 

chapman 


6 

7 



SWITCH 

USE 


8 

9 


1 

1 

6 

LOOP ON TEST IN SW<7(0> 


10 


1 

9 

LOOP ON error 


11 


1 

10 

0 m BELL ON PASS COHPLETE 


12 


J 


1 • BELL ON ERROR 


13 


1 

11 

INHIBIT ITERATIONS 


14 


J 

12 

INHIBIT TRACE TRAP 


15 


1 

13 

INHIBIT error TYPEOUTS 


16 


1 

14 

LOOP ON TEST 


17 


1 

15 

HALT ON error 


le 






19 


(ERROR 

MESSAGE 

FORHATI 


20 


1 ADR 

PSW SP 

ANSI ANS2 ANS3 ANS4 ANS5 ANS6 


21 

22 


(WHERE 

ADR « 

ADDRESS OF "HLT” INSTRUCTION * 2 


23 


1 

PSW § 

PROCESSOR STATUS WORD 


24 


} 

SP fi 

STACK POINTER 


25 


1 

ANSI THRU ANS6 « DATA OPF THE STACK(S> 


26 


1 

NOTEI 

ANSI THRU ANS6 ARE NOT ALWAYS TYPEOi DEPENDING ON THE 


27 


1 


NUMBER ADDED TO THE ’’HLT"‘, "HUT" ALONE TYPES NONE, 


28 


1 


"HLT*1" TYPES ANSI, "HLT*2" TYPES ANSI AND ANS2, ETC, 


29 






30 

104400 

SCOPEt 

TRAP 



31 

104000 

HUT* 

EMT 



32 

000004 

TYPE* 

lOT 



33 

17777ft 

PS* 

177776 



34 

177570 

SWRs 

177570 



35 

177570 

DlSPUAYsSWR 



36 

000007 

BELL* 

7 



37 

000000 

R0S 

X0 



38 

000001 

Rl* 

XI 



39 

000002 

R2s 

%2 



40 

000009 

R3 = 

X3 



41 

000004 

R4s 

%4 



42 

000005 

R5* 

X5 



43 

000005 

TTY* 

%5 



44 

00000ft 

SPr 

%6 



45 

000007 

PC = 

X7 



46 

100000 

SW15* 

000 00 



4 7 

040000 

SWl4s 

40000 



48 

020000 

SW13* 

20000 



49 

010000 

SW12* 

10000 



50 

004000 

SWll* 

4000 



51 

000000 

SWl0a 

2000 



52 

001000 

SW09* 

1000 



53 

000400 

SW08* 

400 
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OBKEAA.PU VECTOR AREA, STACKS, ANSWER AREA, AND SETUP ROUTINE 

54 000000 #2 2 jTRAP catcher from 0 m 776 

55 

56 000200 •« 200 

57 

58 ^00200 000167 000604 JMP BEGIN iJUMP TO STARTING ADDRESS OF PROGRAM 

59 


60 


000600 



» • 

600 




61 

1! 00600 

000000 



SPSWJ 

0 



IPROCESSOR STATUS WORD 

62 

000602 

000000 



SSP: 

0 



iSTACK POINTER 

63 

000604 

000030 



ANSI’. 

0 



IPIRST ANSWER (SEE CODE) 

64 

^00606 

000000 



ANS2: 

0 




65 

000610 

000000 



ANS3> 

0 




66 

000612 

000000 



ANS4! 

0 




67 

000614 

000000 



ANS5! 

0 




68 

000616 

000000 



ANS6! 

0 




69 

000620 

000000 

800000 

000000 


0 1 0 # 0 1 0 



|N(5N«X6 STACK BUFFER 

70 

000626 

000000 








71 

000630 

000000 



STACK0J 

0 



JN0N*X6 STACK NORMAU UlMIT 

72 

000632 

000080 



STACK2J 

0 



1 

73 

000634 

000000 



STACK4J 

0 



J 

74 

P00636 

000000 



STACK6! 

0 



1 

75 

000640 

000000 

000000 

000000 

STACK8J 

0 1 0 , 0 1 0 



IN0N-X6 STACK BUFFER 

76 

000646 

000000 








77 


000631 



STACKl 

= STACK3+1 



70 

79 

000650 

000244 



nsvEC« 

244 



iFiS TRAP VECTOR ADDRESS 

80 

000652 

800246 



nsuvu 

246 




81 

82 

000654 

177564 



TPSS 

177564 



iTEUEPRINTER STATUS 

83 

O A 

000656 

177566 



TPBJ 

477566 



iTEUEPRINtIR SUPPER 

84 

85 


001000 



.4 

1000 




86 

001000 

000000 



ICNTl 

0 



lltERATIDN COUNT • UH TEST NO, 

07 

001002 

000000 



ERRORS: 

0 



JERROR COUNT 

80 
O Q 

001004 

000000 

000000 


PASSES: 

0 1 0 



IPASS counter 

8t 

90 

001010 

000005 



BEGINI 

RESET 




91 

001012 

012706 

000500 



MOV 

#5001 

SP 


92 

001016 

012737 

016004 

000014 


MOV 

#Y|SRT, 

9#14 

iSET trace trap vector 

93 

001024 

012777 

017136 

016262 


MOV 

#POOWNS, 

•POVECS 

I'SET UP POWER PAU, VECTOR 

94 

001032 

012777 

000340 

016256 


MOV 

#340, 

PP(5VECS>0 

95 

001040 

012737 

817334 

000020 


MOV 

#.10T, 


ISET UP VECTOR 20 

96 

001046 

012700 

300030 



MOV 

#30, 

R0 

ISET m TO VECTOR 30 

97 

001052 

012720 

016612 



MOV 

#HUTS, 


ISET EMT VECTOR 

98 

001056 

012720 

300340 



MOV 

#340, 

(0H 


99 

001062 

012720 

016006 



MOV 

#SC0PES, 

<0H 

iSET TRAP VECTOR 

100 

001066 

012710 

000340 



MOV 

#3401 

(01 


101 

001072 

016737 

000006 

800004 


MOV 

1S,»#4 



102 

001100 

005037 

177774 



CUR 

P#i77774 


103 

001104 

012737 

000006 

800004 

is; 

MOV 

#6| 

9#4 

JRESTORE TIME»OUT VECTOR 

104 

001112 

005067 

177662 



CUR 

ICNT 



105 

001116 

005067 

815016 



CUR 

UAOS 


ICUEAR UOOP ADDRESS 

106 

001122 

012767 

008377 

015012 


MOV 

#377, 

times 

JINITIAU12E number OF ITERATIONS 

107 

001130 

104400 




SCOPE 
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108 

109 

110 
111 
112 
113 
llA 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 


081132 004567 015164 

001136 000000 000000 

001142 000000 000000 

801146 000000 

801150 016606 000340 

801154 012700 000630 


)#*•»*****»**»*•*•••**•**••♦•♦*♦•**•••••**•****••**•** 

:TEST i: PADD IKEllP PUOATING ADD INSTRUCTION) 

j 8000001000008 * 000000,000000 s 000000,000000 

! PS * 034, STACK POINTER » R0 

I •»»»*«*««•*»#•••***•**••*******«•♦*••*••♦*********** 


TSTU JSR 

.WORD 

.WORD 

.WORD 

.WORD 

MOV 


R5, PUShR 
000000,000000 
000000,000000 
000 

TRAPER|340 

#STACK0,RB 


IPUSh 4 WQRDS ONTO R0 STACK, SET PRjORlTY 

ISECOND OPERANO ON TOP 

jFiRST operand ON BOTTOM 

iPROCESSOR PRIORITY LEVEL 

I FIS TRAP VECTOR 

ISET UP STACK POINTER 


801160 

801162 

000240 

075000 



NQP 

FAOD* 

801164 

801170 

801174 

801202 

801204 

004767 

010067 

022767 

001401 

104000 

015164 

177406 

000004 

177376 

JSR 

MOV 

CMP 

beg 

HUT 

801206 

801214 

801216 

022767 

001401 

104000 

000634 

177366 

CMP 

beg 

hlt 

801220 

801224 

801226 

005767 

001401 

104002 

177360 


TST 

BEG 

HLT*2 

801230 

801234 

801236 

005767 

001401 

104002 

177352 


TST 

BEG 

HLT*2 

801240 

801246 

801250 

122767 

001401 

104000 

000001 

177532 ENDU 

CMPB 

BEG 

HLT 

001252 

104400 



SCOPE 


R0 


IFLOATING add ON THE R0 STACK 

PC, 

R0, 

»004, 

,44 

POPR 

SSP 

fPSW 

jpop The answer 

ISAVE "STACK POINTER" 
ICHECK PS (EXCEPT T BIT) 
1 BRANCH IF OK 
IPS NOT EQUAL TO 004 

iSTACK4 

,44 

,SSP 

ICmECK THE STACK POINTER (R0) 

IBRANCH IP OK 

jStACK POINTER (R0) NOT EQUAL TO PSTACK4 

ANSI 

,44 


iCheck first half of answer 

I'BRANCH IF OK 

lANSl NOT equal to 000000 

ANS2 

.44 


ICHECK SECOND HAlP OP ANSWER 

iBRANCH IP OK 

IANS2 NOT EQUAL TO 000000 

Pli 

,44 

ICNT 

ICHECK THE TEST NUMBER 
IBRANCH IP OK 


jWRONG TESTl PC MUST HAVE FOUUED UP, 
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149 


150 


151 


152 


153 


154 


155 


156 

001254 

157 

001260 

158 

001264 

159 

?01270 

160 

001272 

161 

201276 

162 


163 

201302 

164 

001304 

165 


166 

201306 

167 

001312 

168 

001316 

169 

001324 

170 

001326 

171 


172 

001330 

173 

001336 

174 

001340 

175 


176 

001342 

177 

001350 

178 

001352 

179 


180 

001354 

181 

001360 

182 

001362 

183 


184 

001364 

185 

001372 

186 

001374 

187 


188 

001376 

189 



TEST 2 ; PAOD (KEUF FLOATING ADD INSTRUCTION) 

040200,000000 * 040280,000000 ? 040400,000000 
PS s 040 , STACK POINTER i R1 

*•*«********•»*****•**•*•***♦**»•*«•*****•*♦**•****••*•*•**•**••••**••* 


004567 

040200 

048280 

000040 

016686 

012701 

015042 

800800 

800088 

000340 

800630 


TST2! 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

HOV 

R5, PUSHR 

840280.000000 

040200.000000 
040 

TRAPER,340 

#STACK0,RI 

IPUSH 4 WORDS ONTO Rl STACKi SET 
I’SECONO OPERAND ON TOP 
iFtRST OPERAND ON BOTTOM 
IPPOCESSOR PRIORITY LEVEL 
jFIS TRAP VECTOR 
ISET UP STACK pointer 

PRIORITY 

000240 

075001 




NOP 

FADO* 

R1 

iFLOATInG ado on the Rl STACK 


004767 

010167 

022767 

001401 

104000 

815042 

177264 

000040 

177254 


JSR 

MOV 

CMP 

8EO 

HUT 

PCi POPR 

RJ, $SP 

#040, ?PSW 

• *4 

jpop the answer 

iSAVE "STACK POINTER" 
ICHECK PS (EXCEPT T BIT) 
IBRANCH If OK 
IPS not equal to 040 


022767 

001401 

104000 

000634 

177244 


CMP 

BEQ 

HUT 

K(STACk4,SSP 

,♦4 

iCHECK the stack pointer (Rl) 
IBRANCH IP OK 

iSTACK pointer (Rl) NOT EQUAL TO 

#STACK4 

022767 

001401 

104002 

040400 

177234 


CMP. 

BEQ 

HUT*2 

#040400, ANSI 
,*4 

/check FIRST half OF ANSWER 

/branch ip ok 

/ANSI NOT EOUAU TO 040400 


005767 

001401 

104002 

177226 



T5T 

BEQ 

HUT*2 

ANS2 

1*4 

/CHECK SECOND half OF ANSWER 

/branch ip ok 

/ANS2 not EQUAU TO 000000 


122767 

001401 

104000 

000002 

177406 

END28 

cmpb 

BEQ 

HUT 

#2i ICnT 

.*4 

/CHECK THE TEST NUMBER 
/BRANCH IP OK 

/WRONG TEST! PC MUST HAVE FOUUED 

UP, 


104400 SCOPE 





v_. 
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192 

191 

192 

193 


(#*»***•*«•»**•*#*»*•*••**#*••**••♦•***•«**•••**•*••****•**•********•*** 

jTEST 3! FADO (KEllF FLOATING ADD INSTRUCTION) 

I imn * mm ,mm • 00200010000130 


194 





\ 

PS s 124 

1 , STACK 

POINTER » R2 

195 






196 

197 

701400 

004567 

014716 


TST3! 

JSR 

R5, PUSHR 

IPUSH 4 WORDS ONTO R2 STACK, SET PRIORITY 

198 

701404 

177777 

177777 



.WORD 

177777,177777 

ISECONO OPERAND ON TOP 

199 

J01410 

077777 

177777 



.WORD 

077777,177777 

IFIRST operand ON BOTTOM 

200 

701414 

000100 




.WORD 

100 

IPROCESSOR PRIORITY UEVEL 

201 

701416 

016626 

000340 



.WORD 

TRAPER,340 

IFIS TRAP VECTOR 

202 

701422 

012702 

000630 



MOV 

#STaCK0,R2 

)SET UP STACK POINTER 

203 









204 

701426 

000240 




NOP 



205 

701430 

075002 




FAOD* 

R2 

jFlOATING ado on THE R2 STACK 

200 

207 

701432 

004767 

014716 



JSR 

PC, POPR 

jpop the answer 

206 

701436 

010267 

177140 



MOV 

R2, SSP 

iSAVE "STACK POINTER" 

209 

701442 

022767 

000104 

177130 


CMP 

#104, $P3W 

iCHECK PS (EXCEPT T BIT) 

210 

701450 

001401 




BEQ 

.*4 

iBRANCH IF OK 

211 

701452 

104000 




HUT 


|PS NOT EOUAU TO 104 

212 

213 

701454 

022767 

000634 

177120 


CMP 

#STACK4,SSP 

iCHECK THE STACK POINTER (R2) 

214 

701462 

001401 




BEQ 


18 RANCH iMk 

215 

701464 

104000 




HUT 


jSTACK POINTER <R2) NOT EQUAU TO iSTACK4 

216 

217 

701466 

005767 

177112 



TST 

ANSI 

iCHECK first half OF ANSWER 

218 

701472 

001401 




BEQ 

, *4 

{BRANCH IF OK 

219 

701474 

104002 




HUT*2 


I'ANSl NOT COUAl. TO 000000 

220 

221 

701476 

005767 

177104 



TST 

ANS2 

iCHECK second HALF OF ANSWER 

222 

701502 

001401 




BED 

.*4 

{'BRANCH IF OK 

223 

701504 

104002 




HUT +2 


1 ANS 2 NOT EQUAU TO 000000 

224 

225 

701506 

122767 

000003 

177264 

END3: 

CMPB 

#3, ICNT 

{CHECK THE TEST NUMBER 

226 

701514 

001401 




BEQ 

,♦4 

{BRANCH IF OK 

227 

701516 

104000 




HUT 


{WRONG TEST! PC MUST HAVE FOUUEO UP. 

228 









229 

701520 

104400 




SCOPE 




230 



HAINDEC.Jl-DBKEA.A KEllF <PDP»U FIS} INSTRgCTION T|STS. 

OBKEAA.Pli FADO TEST SECTION 
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231 

232 

233 

234 

235 

236 


I #»»*«••**»*»#»•»••• ••••**»#»#*»*«***»**4 #••**##**•»»•§*#• #»**#•»*•*•#•• 

ITEST 41 FADD (KEUF PUOATINC ADD INSTRyCTlON) 

I 052525,052525 * 152525,052524 « 044600,000000 

i PS = 200, STACK POINTER f SP 

} »«*»***•»•»*•«*••»»*«*##•#•»•#*•»*»****»#**♦*»***»**#*•*•••»*•*••**•#•• 


237 







238 

001522 

004567 

014416 


TST4! 

JSR 

239 

001526 

152525 

052524 



.WORD 

240 

001532 

052525 

052525 



.WORD 

241 

001536 

000217 




.WORD 

242 

001540 

016606 

000340 



.WORD 

243 







244 

201544 

000240 




NOP 

245 

001546 

07500 ft 




FADD* 

246 







247 

20155(5 

004767 

014430 



JSR 

248 

201554 

022706 

000500 



CMP 

249 

201560 

001404 




BEO 

250 

201562 

012706 

000500 



MOV 

251 

201566 

104000 




HtT 

252 

201570 

000416 




BR 

253 







254 

201572 

022767 

000200 

177000 

TSA41 

CMP 

255 

201600 

001401 




BEO 

256 

201602 

104000 




HI.T 

257 







258 

201604 

022767 

044600 

176772 


CMP 

259 

201612 

001401 




BEO 

260 

201614 

104002 




HUT*2 

261 







262 

201616 

005767 

176764 



TST 

263 

201622 

001401 




BEO 

264 

201624 

104002 




H|,T*2 

2oP 

266 

201626 

122767 

000004 

177144 

EN04J 

CMPB 

267 

201634 

001401 




BED 

268 

201636 

104000 




HIT 

269 







270 

201640 

104400 




SCOPE 

271 








.) 



R5, 

PUSHS 

IPUSH 4 WORDS ONTO STACK, SET PRIORITY 

152525, 

052524 

I'SCCONO OPERAND ON TOP 

052525, 

052525 

iFiRST operand on BOTTOM 

217 


IPROCESSOR PRIORITY LEVEL 

TRAPER, 

340 

|F!S TRAP VECTOR 

SP 


ifloating add on the stack 

PO, 

POPS 

JPOP THE ANSWER 

P500, 

SP 

ICHECK THE STACK POINTER 

T5A4 


IBRANCH IP OK 

«500, 

SP 

IRISTORE STACK POINTER 

istack pointer fouled up 

EN04 


ISKIP REST OF TEST 

#200, 

SPSW 

(CHECK PS {EXCEPT T BIT) 

,*4 


(BRANCH IP OK 

(PS NOT EQUAL TO 200 

#044600 

,ANS1 

(CHECK FIRST HALF OF ANSWER 

. *4 


(BRANCH IF OK 

(ANSI NOT EQUAU TO 044ft00 

ANS2 


(CHECK SECOND HALF OF ANSWER 

.*4 


(BRANCH IP OK 

JANS2 NOT EQUAL TO 000000 

#4, 

lONT 

(CHECK THE TEST NUMBER 

,*4 


(BRANCH IP OK 

(WRONG TEST! PC MUST HAVE FOULED UP. 
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272 










273 





1 #»»*! 


«•••#«#« 



274 





ITEST 

51 

FAOO (KEllF FLOATING AOO INSTRUCTION) 

275 





1 

125200, 

000000 * 

025177 

,177777 « 117200,000000 

276 





J 

PS ¥ 310, 

STACK 

POINTER « SP 

277 










278 

279 

801642 

004567 

014276 


TST5; 

JSR 

R5, 

PUSHS 

IPUSH 4 WORDS ONTO STACK, SET PRIORITY 

280 

801646 

025177 

177777 



(WORD 

025177, 

177777 

ISECONO OPERAND ON TOP 

281 

801652 

125200 

000000 



(WORD 

125200, 

000000 

JF!RST OPERAND ON BOTTOM 

262 

801656 

000307 




(WORD 

307 


IPROCESSOR priority LEVEL 

283 

801660 

016606 

000340 



(WORD 

TRAPER, 

340 

jFlS TRAP VECTOR 

284 










285 

801664 

000240 




NOP 




286 

801666 

075036 




FAOD+ 

SP 


jFLOATInG ado ON THE STACK 

287 

238 

801670 

004767 

014310 



JSR 

PC» 

POPS 

iPOP the answer 

289 

801674 

022706 

000500 



CMP 

4500, 

SP 

(CHECK the STACK POINTER 

290 

801700 

001404 




bed 

TSA5 


IBRANCW IF OK 

291 

801702 

012706 

000500 



MOV 

4500, 

SP 

(RESTORE STACK POINTER 

292 

801706 

104000 




HIT 



(STACK POINTER FOULED UP 

293 

801710 

000416 




br 

END5 


(SKIP REST OF TEST 

294 










295 

801712 

022767 

000310 

176660 

TSA5J 

CMP 

4510, 

SPSW 

(CHECK PS (EXCEPT T BIT) 

296 

801720 

001401 




bed 

,*4 


(BRANCH IF OK 

297 

801722 

104000 




HLT 



(PS NOT EQUAL TO 310 

298 

299 

801724 

022767 

117200 

176652 


CMP 

4117200 

,AN31 

(CHECK FIRST HALF OF ANSWER 

300 

801732 

001401 




BEQ 

,*4 


(BRANCH IF OK 

301 

801734 

104002 




HUT*2 



(ANSI NOT EQUAL TO 117200 


302 

303 801736 

304 C01742 

305 801744 

306 

307 801746 

308 801754 

309 801756 

310 

311 801760 

312 


005767 

001401 

104002 

122767 

001401 

104000 

104400 


176644 


000005 ,177024 EN05J 


T5T 

8EQ 

Hl.T+2 

cmpb 

BEQ 

H».T 

SCOPE 


ANS2 

.«4 


45, 

,*4 


icnt 


ICHECK second HAuP op answer 

jBRANCH If OK 

l'ANS2 NOT EOUAt TO 000000 

ICHECK THE TEST NUMBER 
I’BRANCH JF OK 

IWRONG TESTI PC MUST HAVE FOULED UP, 
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313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 
3^8 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 


»•••*#*»*•*••****»*#***•*•**•****#*•**•*«••*••*•**••**•♦*•*****••♦*•**•* 

>TEST 6J FADO (KEUF floating add INSTRUCTION) 

} 135753|024$42 * 100125|052525 s 135753| 024642 

I PS = 350, STACK POINTER a R5 

I *»****»**•#**»*»*•*********•*****•#**•**#»•»•*****«••«•**•*••*•»**♦•*•* 


221762 

T01766 

?01772 

H21776 

J02000 

P02004 

304567 

100125 

135753 

000347 

016606 

012705 

014334 

052525 

024642 

000340 

000630 


TST6J 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

MOV 

R5| PySHR 

100125,052525 
135753,024642 
347 

TRAPER,340 

#STACKi,R5 

IPUSH 4 WORDS ONTO R5 STACK# SET 
/SECOND OPERAND ON TOP 
I'FIRST operand on BOTTOM 
/PROCESSOR PRIORITY LEVEL 
I’FIS TRAP VECTOR 
ISET gP STACK POINTER 

PRIORITY 

202010 

e020l2 

000240 

075005 




NOP 

FADD+ 

R5 

/floating ado on the R5 stack 


T02014 

?02020 

002024 

002032 

?02034 

004767 

010567 

022767 

001401 

104000 

014334 

176556 

000350 

176546 


JSR 

MOV 

CMP 

8EQ 

HLT 

PC» POPR 

R5, SSP 

#350, $P8W 

1*4 

/POP THE ANSWER 
/SAVE "STACK POINTER" 
/CHECK PS (EXCEPT T BIT) 
/BRANCH IF OK 
IPS NOT EQUAL TO 350 


002036 

202044 

202046 

022767 

001401 

104000 

000634 

176536 


CMP 

beq 

HLT 

#STACK4,SSP 

,*4 

/CHECK THE STACK POINTER IH5) 
(BRANCH IF QK 

/STACK POINTER (R5) NOT EQUAL TO 

#STACK4 

202050 
T02056 
? 02060 

022767 

001401 

104002 

135753 

176526 


CMP 

BEQ 

HLT*2 

#135753, ANSI 
,*4 

/CHECK FIRST HALF OF ANSWER 

/BRANCH IP OK 

/ANSI NOT EQUAL TO 135'75S 


202062 

P02070 

P02072 

322767 

001401 

104002 

024642 

176516 


CMP 

BEQ 

HLT*2 

#024642, ANS2 
,♦4 

ICHICK SECONO half OF ANSWER 

(BRANCH IP OK 

(ANS2 NOT EQUAL TO 024642 


202074 

P02102 

202104 

122767 

001401 

104000 

000006 

176676 

EN06I 

cmpb 

BEQ 

HLT 

#6, ICNT 

, *4 

(CHECK THE TEST NUMBER 
(BRANCH IP OK 

(WRONG TEST* PC MUST HAVE POULED 

UP. 

202106 

104400 




SCOPE 





o o 
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MAIH 


1-OBKEA-A 


KEiir (PDP-11 riS) INSTRUCTION TES 


08K£a1, 


FAOD TEST SECTION 



354 







355 






356 





ITEST 7: 

FAOD (KEHF FL 

357 





1 000052| 

125252 * 001357 

355 





j PS = 240, STACK 

359 






362 







361 

e02ii0 

^04567 

014206 


TST7I jSR 

R5, PU8HR 

362 

S02H4 

001357 

024642 


(WORD 

001357,024642 

363 

702120 

000052 

125252 


.WORD 

000052,125252 

364 

702124 

000257 



.WORD 

257 

365 

702126 

016606 

000340 


.WORD 

TRAPER,340 

366 

702132 

012701 

000630 


MOV 

#STACK0,R1 

367 







366 

702136 

000240 



NOP 


369 

702140 

075001 



FAOD* 

Rl 

370 







371 

702142 

004767 

014206 


JSR 

PC, POPR 

372 

702146 

010167 

176430 


MOV 

Rl, $5P 

373 

702152 

022767 

000240 

176420 

CMP 

#240, SPSW 

374 

702160 

001401 



BEO 

,♦4 

375 

702162 

104000 



HLT 


376 







377 

702164 

022767 

000634 

176410 

CMP 

#STACK4,SSP 

378 

702172 

001401 



BEQ 

.*4 

379 

702174 

104000 



HLT 


380 







381 

702176 

022767 

001357 

176400 

CMP 

#001357, ANSI 

362 

702204 

001401 



BEQ 

,*4 

383 

702206 

104002 



HLT*2 


384 







385 

702210 

022767 

024642 

176370 

CMP 

#024642, ANS2 

386 

702216 

001401 



BEQ 

,*4 

387 

702220 

104002 



HLT*2 


388 







389 

702222 

122767 

000007 

176550 

EN07! CMPB 

#7, ICnT 

390 

702230 

001401 



BEQ 

.*4 

391 

702232 

104000 



HLT 


392 







393 

702234 

104400 



SCOPE 


394 








Rl 


IPUSH 4 WORDS ONTO Rl STACKi SET PRIORITY 
ISECOND OPERAND ON TOP 
IFIRST operand on bottom 
(PROCESSOR PRIORITY I.EVE1, 

(FJS TRAP VECTOR 
(SET UP STACK pointer 


(FLOATING ADD ON THE Rl STACK 

(POP the answer 

(SAVE "STACK POINTER" 

(CHECK PS (EXCEPT T BIT) 

(BRANCH IF OK 

(PS NOT EQUAL TO 240 

(CHECK the stack POINTER (Rl) 

(BRANCH IF OK 

(STACK POINTER (Rl) NOT EQUAL TO PSTACK4 

(CHECK FIRST HAlF OF ANSWER 

(BRANCH IF OK 

(ANSI NOT EQUAL TO 001397 

(CHECK SECOND HAlF QF ANSWER 

(BRANCH IP OK 

(ANS2 NOT EQUAL TO 024i&42 

(CHECK THE TEST NUMBER 
(BRANCH IF OK 

(WRONG TEST! PC MUST HAVE FOULED UP, 
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ITEST 101 FADO (KEllF FLOATING AflD JNSTRyCTION) 


398 





1 

10040J 

3i000000 * 000200 

,000000 = 100200,000000 

399 





1 

P$ s ; 

150, STACK 

POINTER X R5 

400 





; 


401 

402 

e02236 

004567 

014060 


TST10I 

JSR 

R5, PWSHR 

JPUSH 4 WORDS ONTO R5 STACK, SET PRIORITY 

403 

?02242 

000200 

000000 



.WORD 

000200,000000 

iSECQNO OPERAND ON TOP 

404 

E02246 

100400 

000000 



.WORD 

100400,000000 

)FIRST OPERAND ON BOTTOM 

405 

702252 

000140 




.WORD 

140 

jPROCESSOR PRIORITY level 

406 

702254 

016606 

000340 



.WORD 

TRAPER|340 

jFIS trap VECTOR 

407 

702260 

012705 

000630 



MOV 

#STACK0,R5 

ISET UP STACK POINTER 

408 

409 

702264 

000240 




NOP 



410 

002266 

075005 




FADD* 

R5 

IFLOATING ADO ON THE R5 STACK 

411 

412 

702270 

004767 

014060 



ysR 

PC, POPR 

ipop The answer 

413 

702274 

010567 

176302 



MOV 

R5, SSP 

iSAVE ’’STACK POINTER” 

414 

702300 

022767 

000150 

176272 


CMP 

#150, SPSW 

ICHECK PS (EXCEPT T BIT) 

415 

702306 

001401 




BEQ 

,*4 

(BRANCH IF OK 

416 

702310 

104000 




HUT 


IPS NOT EQUAL TO 150 

417 

418 

702312 

022767 

000634 

176262 


CMP 

#STACK4,SSP 

(CHECK the stack POINTER (R5> 

419 

702320 

001401 




BEO 

• .iAA 

(BRANCH IF OK 

420 

702322 

104000 




HUT 


(STACK POINTER (R5) NOT EQUAL TO #STACK4 

421 

422 

702324 

022767 

100200 

176252 


CMP 

#100200, ANSI 

(CHECK FIRST HALF OF ANSWER 

423 

702332 

001401 




BEQ 

,44 

(BRANCH If OK 

424 

702334 

104002 




HLT*2 


(ANSI NOT EQUAL, TO 100200 

42$ 

426 

702336 

005767 

176244 



TST 

ANS2 

(CHECK SECOND half OF ANSWER 

427 

702342; 

001401 




BEQ 

,*4 

(BRANCH If OK 

428 

702344 

104002 




HLT*2 


(ANS2 NOT EQUAL TO 000000 

429 

430 

702346 

122767 

000010 

176424 

ENO10I 

cmpb 

#40, ICNT 

(CHECK THE TEST NUMBER 

431 

702354 

001401 




BEO 

.#4 

(BRANCH IF OK 

432 

702356 

104000 




HWT 


(WRONG TEST! PC MUST HAVE FOULED UP, 

433 









434 

702360 

104400 




SCOPE 
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436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 
450 

459 

460 

461 

462 

463 

464 

465 

466 

467 

466 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

467 

488 

489 


I *»*«»»******#*»**•♦****•*••*•*******«♦*••••**•**••**•*•***•**•• ********* 

ITEST lU FA30 (KEllF FLOATING AOD INSTRUCTION) 

I 100200,000000 * 000377,177777 »s> UNDERFLOW 

i PSION STACK) s 152, STACK POINTER = R3 

i »#****#**#•»****#**»••***•********•**#****•*•*********•*•**•*•********** 


002362 

002366 

002372 

002376 

002400 

002404 

004567 

000377 

100200 

000157 

002430 

012703 

013734 

177777 

000000 

000000 

000630 


TSTllI 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

MOV 

R5, PUSHR 
000377,177777 
100200,000000 
157 

ISRll, 003 
#STACK0,R3 

IPUSH 4 WORDS ONTO R3 STACK, SET 

ISCCONO OPERAND ON TOP 

IFIRST operand on BOTTOM 

{PROCESSOR PRIORITY LEVEL 

IFIS TRAP VECTOR 

jSCT UP R3 AS STACK POINTER 

PRIORITY 

002410 

002412 

000240 

075003 




NOP 

FAOD* 

R3 

iFLOATING ado on THE R3 STACK 


002414 

002420 

002424 

002426 

004767 

010367 

104002 

000452 

013734 

176156 


RTAllI 

JSR 

MOV 

HLT+2 

BR 

X7, POPR 

R3, SSP 

ENOll 

{POP the "ANSWER" 

{SAVE STACK POJNTER (R3> 
|F|S TRAP DIDN'T OCCURIl 


002430 

002434 

002440 

002444 

002446 

004767 

010367 

005767 

001401 

104000 

313752 

176142 

176134 


ISRllI 

JSR 

MQV 

TST 

BEQ 

hlt 

X7, POPER 

R3, SSP 

SPSH 

,*4 

IPOP ALL data off the STACKS 
ISAVE STACK POJNTER (R3) 

{CHECK PS AFTER FJS TRAP 
{BRANCH IF OK 

{PS AFTER FIS TRAP NOT EQUAL TO 

000 

002450 

002456 

002460 

022767 

00i4n 

104000 

000630 

176124 


CMP 

BEQ 

hlt 

«STACK0tSSP 

.*6 

{CHECK the STACK POINTER (R3) 
{BRANCH If OK 

{STACK POINTER (R3) NOT EQUAL TO 

#STACK0 

002462 

002470 

002472 

022767 

001401 

1J4001 

002414 

176114 


CMP 

BEQ 

hlt*i 

PRTAll, ANSI 

,*4 

{CHECK FIS TRAP RETURN ADDRESS 
{BRANCH IF OK 

{FIS TRAP AT WRONG ADDRESS 


002474 

002502 

002504 

022767 

001401 

104002 

000152 

176104 


CMP 

BEQ 

HLT*2 

#152, ANS2 

,*4 

{CHECK PS BEFORE FIS TRAP 
{BRANCH IF OK 

IPS AT FIS TRAP TIME NOT 152 


002506 

002514 

002516 

022767 

001401 

104004 

000377 

176074 


CMP 

BEQ 

HLT*4 

#000377, ANS3 

,*4 

{CHECK DATA FROM THE STACK 
{BRANCH IF OK 

{DATA ON STACK (000377) CHANGEO 


002520 

002526 

002530 

022767 

001401 

104004 

177777 

176064 


CMP 

BEQ 

HLT+4 

#177777, ANS4 

,** 

{CHECK DATA FROM STACK 
{BRANCH IF OK 

{DATA ON stack (177777) CHANGED 


002532 

002540 

002542 

022767 

001401 

104006 

100200 

176054 


CMP 
BEQ 
HLT* 6 

#100200, ANS5 
,♦4 

{CHECK DATA FROM STACK 
{BRANCH IF OK 

{DATA ON STACK (100200) CHANGED 


002544 

002550 

005767 

001401 

176046 



TST 

BEO 

ANS6 

I #4 

{CHECK DATA FROM STACK 
{BRANCH IF OK 
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A90 

002552 

104006 




HtT^6 


IDATA ON STACK (000000) CHANGED 

491 

492 

002554 

122767 

000011 

176216 

ENDllI 

CMPB 

#11* ICNT 

{CHECK THE TEST NUMBER 

493 

002562 

001401 




BEQ 

,*4 

(BRANCH IF OK 

494 

202564 

104000 




HUT 


(WRONG TEST! PC MUST HAVE FOULED UP, 

495 









496 

002566 

104400 




SCOPE 



497 









498 









499 





1 




500 





JTEST 

121 

FADO IKEllF FLOATING ADO INSTRUCTION) 

501 





1 

000425| 

052525 ♦ 100252 

,125252 « 000200,000000 

502 





1 

PS s 230» STACK 

POINTER ■ R4 

503 





1 




504 

505 

f02570 

004567 

013526 


TST12I 

JSR 

R5, PySHR 

(PUSH 4 WORDS ONTO R4 STACKi SET PRIORIT' 

506 

002574 

100252 

125252 



.WORD 

100252(125252 

(SECOND OPERAND ON TOP 

507 

^ 02600 

000425 

052525 



.WORD 

000425(052525 

(FIRST OPERAND ON BOTTOM 

508 

002604 

000217 




.WORD 

217 

(PROCESSOR PRIORITY LEVEI. 

509 

002606 

016606 

000340 



.WORD 

TRAPER|340 

(FIS TRAP VECTOR 

■ ,510 

002612 

012704 

000630 



MOV 

#STACK0iR4 

(SET UP STACK POINTER 

: 511 









512 

002616 

000240 




NOP 



513 

002620 

075004 




FADD-i* 

R4 

(FLOATING ADO ON THE R4 STACK 

514 









515 

0 02622 

004767 

013526 



gSR 

PCi POPR 

(POP the answer 

516 

002626 

010467 

175750 



MOV 

R4( SSP 

(SAVE "STACK POINTER" 

517 

002632 

022767 

000200 

175740 


CMP 

0200 , SPSW 

(CHECK PS (EXCEPT T BIT) 

518 

002640 

001401 




8EQ 

.*4 

(BRANCH IF OK 

519 

002642 

104000 




HLT 


(PS NOT EQUAL TO 200 

520 

521 

002644 

022767 

000634 

175730 


CMP 

#STACK4,ISP 

(CHECK THE STACK POINTER <R4) 

522 

002652 

001401 




BEQ 

,*4 

(BRANCH IF OK 

523 

002654 

104000 




HUT 


(STACK pointer (R4) NOT EQUAL TO #STACK4 

524 

525 

002656 

022767 

000200 

175720 


CMP 

P000200(ANS1 

(CHECK FIRST HALF OF ANSWER 

526 

002664 

001401 




BEQ 

,*4 

(BRANCH IF OK 

527 

002666 

104002 




HUT+2 


(ANSI NOT EQUAL TO 000200 

528 

529 

002670 

305767 

175712 



TST 

ANS2 

(CHECK SECOND HAlF OF ANSWER 

530 

002674 

001401 




BEO 

,♦4 

(BRANCH IF OK 

531 

002676 

104002 




HUT*2 


(ANS2 NOT EQUAL TO 000000 

532 

533 

002700 

122767 

000012 

176072 

END12I 

CMPB 

#12( ICNT 

(CHECK THE TEST NUMBER 

534 

002706 

001401 




BEO 

,*4 

(BRANCH IF OK 

535 

002710 

104000 




HUT 


(WRONG TEST! PC MUST HAVE FOULED UP, 

536 









537 

002712 

104400 




SCOPE 



538 
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'QBKe A»A 


KEUF (PDP-11 FIS) instruction T£5 


FADO TEST SECTION 


539 

540 

541 

542 

543 

544 

545 

546 002714 004567 

547 002720 100377 

548 702724 000200 

549 702730 000257 

550 702732 002756 

551 

552 702736 000240 

553 702740 075006 

554 

555 702742 

556 702746 

557 702750 

558 702754 

559 

560 702756 

561 702762 

562 702766 

563 702770 

564 702774 

565 702776 

566 


567 

003000 

022767 

000340 

175572 

ISA13I CMP 

568 

203006 

001401 



BEQ 

569 

203010 

104000 



HUT 

570 




175564 


571 

203012 

022767 

002742 

CMP 

572 

203020 

001401 



BEQ 

573 

203022 

104001 



HUT+1 

574 






575 

203024 

022767 

000252 

175554 

CMP 

576 

203032 

001401 



BEQ 

577 

203034 

104002 



HUT+2 

578 






579 

203036 

022767 

100377 

175544 

CMP 

580 

203044 

001401 



BEO 

581 

203046 

104004 



HUT + 4 

582 






583 

203050 

022767 

177777 

175534 

CMP 

584 

203056 

001401 



BEQ 

585 

203060 

104004 



HUT + 4 

586 






587 

203062 

022767 

000200 

175524 

CMP 

588 

203070 

001401 



BEO 

589 

203072 

104006 



HUT+6 

590 





TST 

591 

203074 

005767 

175516 


592 

203100 

001401 



BEQ 


R5| 

PUSHS 

jPUSH 4 WORDS ONTO STACK, SET PRIORITY 

100377, 

177777 

jSECOND OPERAND ON TOP 

000200, 

000000 

IFIR.ST operand on BOTTOM 

257 


IPROCESSOR PRIORITY UEVEU 

ISR13, 

340 

IFIS TRAP VECTOR 

SP 


IFUOATING ADD ON THE STACK 

XT, 

POPS 

»POP the "ANSWER" 
iFlS TRAP DIDN'T OCCUREl 

«500, 

EN013 

SP 

IRESTORE the sTaCK POINTER 

X7, 

POPES 

IPOP AUL DATA OFF THE STACK 

#500, 

SP 

iCflECK THE STACK POINTER 

ISA13 


IBRANCH IF OK 

#5001 

SP 

iRESTORE THE STACK POINTER 
iSTACK POINTER FOUUED UP 

END13 


JSKIP REST OF TEST 

#340, 

SPSW 

jCHECK PS AFTER FIS TRAP 

.*4 


iBRANCH If OK 

IPS after FIS TRAP NOT E(3UAU TO 340 

#RTA13, 

ANSI 

ICHECK FIS TRAP RETURN ADDRESS 

,*4 


IBRANCH IF OK 

IFIS TRAP AT WRONG ADDRESS 

#252, 

ANS2 

iCHECK PS before FIS TRAP 



iBRANCH IF OK 

IPS AT FIS TRAP TIME NOT 252 

#100377 

, ANS3 

ICHECK DATA FROM THE STACK 

.*4 


IBRANCH IF OK 

IDATA ON STACK (100377) CHANGED 

#177777 

, ANS4 

ICHECK DATA FROM STACK 

.*4 


iBRANCH if OK 

iDATA (3N STACK (177777) CHANGED 

#000200 

1 ANS5 

ICHECK DATA FROM STACK 

,♦4 


IBRANCH IF OK 

I'DATA ON STACK (000200) CHANGED 

ANS6 


ICHECK DATA FROM STACK 



IBRANCH IF OK 


j « ««»•»*» •#»»*•*•*«♦»*»*****»•♦*•*•**«»•«****•••**»••* ••»*»*************P 
ITEST 131 FADD (KEllF FLOATING ADO INSTRUCTION) 

} 000200I00000R * 100377|177777 ss> UNOERFLOW 

I PStON STACK) » 252, STACK POINTER « SP 

•##************#•**********»***•** ******•**•*******•*•*•*•**** 


013224 

177777 

000000 

000340 


TST13I 


JSR 

.WORD 

.WORD 

.WORD 

.WORD 


NOP 

FADD* 


004767 

104002 

012706 

000453 


013236 

000500 


RTA13I JSR 

HI.T4-2 

MOV 

BR 


004767 

022706 

001404 

012706 

104000 

000442 


013256 

000500 

000500 


ISR13! 


JSR 

CMP 

BEO 

MOV 

HUT 

BR 



nAiNUtt«il-DBKEA*A 
DBKEAA.PU TADO TEST SECT 


593 eB3X02 

594 

595 203104 

596 203112 

597 203114 

598 

599 203116 


104006 

122767 000013 

001401 

104000 

104400 


(POP-11 EIS) INSTRUCTION TESTS, 
ION 

HI.T46 

175666 END13} CnPB P13, 

SEO ,*4 

HtT 

SCOPE 


MACm,620 21iAU5*72 12107 0A6E 14 

iOATA ON STACK (000000) CHANGED 

ICNT iCHECK THE TEST NUMBER 
} BRANCH IF OK 

jHRONG tests pc MUST HAVE FOUI.ED UP, 


(TEST 141 FADO (KEllF FLOATING ADD INSTRUCTION) 

t 100425|052525 * 000252|125252 i 100200,000000 


605 





1 

PS « : 

U0, 

STACK 

POINTER ■» SP 

606 






607 

60S 

003120 

004567 

013020 


TST14I 

JSR 

R5| 

pysHs 

(PUSH 4 WORDS ONTO STACK, SET 

609 

003124 

000252 

125252 



.WORD 

000252, 

125252 

ISECONO OPERAND ON TOP 

610 

003130 

100425 

052525 



.WORD 

100425, 

052525 

iPIRST OPERAND ON BOTTOM 

611 

003134 

000307 




.WORD 

307 


IPROCESSOR PRIORITY UEVEU 

612 

003136 

016606 

300340 



.WORD 

TRAPER, 

340 

IFIS TRAP VECTOR 

613 










614 

003142 

000240 




NOP 




615 

003144 

075006 




FA004 

SP 


iFUOATInG ado on the STACK 

616 

617 

003146 

004767 

013032 



JSR 

PCi 

POPS 

IPOP THE ANSWER 

618 

003152 

022706 

000500 



CMP 

#500, 

SP 

icftECK the stack pointer 

619 

003156 

001404 




0EQ 

TSA14 


IBRANCH IP OK 

620 

003160 

012706 

000500 



MOV 

#500, 

SP 

(RESTORE stack POINTER 

621 

003164 

104000 




HUT 



(STACK POINTER FOULED UP 

622 

003166 

000416 




BR 

EN014 


(SKIP REST OF TEST 

623 










624 

003170 

022767 

000310 

175402 

TSA14I 

chp 

#3101 

SPSW 

(CHECK PS (EXCEPT T BIT) 

625 

003176 

001401 




BEO 

,*4 


(BRANCH IP OK 

626 

003200 

104000 




HUT 



(PS not equal to 310 

627 

628 

003202 

022767 

100200 

175374 


CMP 

#100200 

,ANS1 

(CHECK FIRST HALF OF ANSWER 

629 

003210 

001401 




BEQ 

,*4 


(BRANCH IP OK . 

630 

003212 

104002 




H|,T*2 



(ANSI NOT EQUAL TO 100200 

631 

632 

003214 

005767 

175366 



TST 

ANS2 


(CHECK SECOND HAuF OF ANSWER 

633 

003220 

001401 




BEQ 

,*4 


(BRANCH IP OK 

634 

003222 

104002 




HUT + 2 



(ANS2 NOT EQUAL TO 000000 

635 

636 

003224 

122767 

000014 

175546 

END14I 

CMPB 

#14, 

ICNT 

(CHECK the TEST NUMBER 

637 

003232 

001401 




BEO 

,*4 


(BRANCH IP OK 

630 

003234 

104000 




hut 



(WRONG TEST! PC MUST HAVE FOi 

639 










640 

003236 

104400 




SCOPE 





O 





D8KEAA,Pll 


keuf <pdp^ii ns} 


FAOD TEST SECTION 


INSTRUCTION TeSV.. 
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642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 


JTEST 15? FAOD (KElir rLOATJNG ADD INSTRUCTION) 
; 077652#125252 * 077452 , 125252 i? 077777 1 177777 
I PS = 240, STACK POINTER = SP 


?03240 

004567 

012700 


TST15J 

JSR 

R5, pgsHs 

IPUSH 4 WORDS ONTO STACK, SET PRIORITY 

Z03244 

077452 

125252 



.WORD 

077452|125252 

iSCCOND OPERAND ON TOP 

003250 

077652 

125252 



.WORD 

077652|125252 

iFfRST operand ON BOTTOM 

003254 

000257 




.WORD 

257 

IPPOCESSOR PRIORITY UEVEU 

003256 

016606 

000340 



.WORD 

TRAPER|340 

jP!S TRAP VECTOR 

003262 

000240 




NOP 



003264 

075006 




FADD* 

SP 

I'FUOATInG add on the STACK 

003266 

004767 

012712 



JSR 

PC| POPS 

IPOP the ANSWER 

003272 

022706 

000500 



CMP 

#500, SP 

ICHECK THE STACK POINTER 

003276 

001404 




BEQ 

T5A15 

/BRANCH IF OK 

003300 

012706 

000500 



MOW 

#500, SP 

iRfSTORE STACK POINTER 

003304 

104000 




HUT 


iSfACK POINTER FOUUEO UP 

003306 

000417 




BR 

EN015 

/SKIP REST OF test 

003310 

022767 

000240 

175262 

TSA15I 

CMP 

«240, SPSW 

/check PS (EXCEPT T BIT) 

003316 

001401 




BEQ 

,** 

/BRANCH IF OK 

003320 

104000 




HUT 


IPS NOT EQUAU TO 240 

003322 

022767 

077777 

175254 


CMP 

#077777, ANSI 

iCHECK FIRST HAuF OF ANSWER 

003330 

001401 




BEQ 

.44 

IBRANCH IF OK 

003332 

104002 




HUT*2 


/ANSI NOT EQUAU TO 077777 

003334 

022767 

177777 

175244 


CMP 

#177777, ANS2 

/CHECK SECOND HAuF OF ANSWER 

003342 

001401 




BEQ 


/branch if ok 

003344 

104002 




HUT+2 


IANS2 NOT EQUAU TO 177777 

003346 

122767 

000015 

175424 

EN015I 

CMPB 

#15, ICNT 

ICHECK THE TEST NUMBER 

003354 

001401 




BEQ 

,44 

iBRANCH IF OK 

003356 

104000 




HUT 


/WRONG TEST! PC MUST HAVE FOUUED UP, 

003360 

104400 




SCOPE 
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DBKEAA.PU FADD TEST SECTION 


683 





684 





685 





686 





687 





668 





689 





690 

003362 

004567 

012734 


691 

003366 

177652 

125252 


692 

003372 

177452 

125253 


693 

003376 

000105 



694 

003400 

003430 

000252 


695 

003404 

012731 

000630 


696 





697 

003410 

300240 



698 

003412 

075001 



699 





700 

003414 

004767 

012734 


701 

003420 

010167 

175156 


702 

003424 

104002 



703 

003426 

000454 



704 





705 

003430 

004767 

012752 


706 

003434 

010167 

175142 


707 

003440 

022767 

000252 

175132 

708 

003446 

001401 



709 

710 

711 

003450 

104000 



003452 

322767 

000630 

175122 

712 

003460 

001401 



713 

003462 

104000 



714 




175112 

715 

003464 

022767 

003414 

716 

003472 

001401 



717 

718 

719 

003474 

104001 



003476 

022767 

000102 

175102 

720 

003504 

001401 



721 

003506 

104002 



722 




175072 

723 

003510 

022767 

177652 

724 

003516 

001401 



725 

003520 

104004 



726 




175062 

727 

003522 

022767 

125252 

728 

003530 

001401 



729 

003532 

104004 



730 




175052 

731 

003534 

022767 

177452 

732 

003542 

001401 



733 

003544 

104006 



734 




175042 

735 

003546 

322767 

125253 

736 

003554 

001401 





)•»»••****•*••*****•*•*******••*•***********•*****•****■*******•********** 

JTEST 161 FAOD (KEllF FLOATING ADD INSTRUCTION) 

) 177452|125253 * 177652 | 125252 ss> OVERFLOW 

) PSION STACK) = 102, STACK POINTER a R1 

; «*»*#*»•*•******•*#»*•**•**»**•*•****•*•*••***•*****•****••***•**•****** 


TST16I JSR 

.WORD 

.WORD 

.WORD 

.WORD 

MOV 

NOP 

FADD* 

RTA16I JSR 
MOV 
HLT+2 
BR 

ISR16I JSR 
MOV 
CMP 
BCQ 
HUT 


R5, PUSHR 

177652.125252 

177452.125253 
105 

ISR16, 252 
#STACK0,R1 


R1 

X7, POPR 

Rl, SSP 

END16 

X7, POPER 

Rl, SSP 

#252, SPSW 

,*4 


IPUSH 4 WORDS ONTO Rl STACK, SET PRIORITY 

[SECOND OPERAND ON TOP 

[FIRST OPERAND ON BOTTOM 

[PROCESSOR PRIORITY LEVEL 

[FIS TRAP VECTOR 

[SET up' Rl AS STACK POINTER 


[FLOATING ADD ON THE Rl STACK 

[POP THE "ANSWER" 

[SAVE STACK POINTER (Rl) 

[FIS TRAP DIDN'T OCCURE! 


IPOP ALL data off the stacks 
ISIVE STACK POINTER (Rl) 

ICHECK PS AFTER FIS TRAP 
IBRANCH IF OK 

IPS after FIS TRAP NOT EQUAL TO 252 


CMP #STACK0,SSP 

8E0 .*A 

HLT 


I check THE STACK POINTER (Rl) 
iBRANCH IF OK 

(STACK POINTER (Rl) NOT EQUAL TO #STACK0 


CMP #RTA16, ANSI 

BEO ,** 

HLT*1 


(CHECK FIS TRAP RETURN ADDRESS 
(BRANCH IF OK 

iFfS TRAP AT WRONG ADDRESS 


CMP #102, AN82 

BED ,*A 

HLT42 


(CHECK PS BEFORE FIS TRAP 
(BRANCH If OK 

(‘PS AT FIS trap time NOT 102 


CMP #177652, ANS3 

BEO ,♦# 

HLT*4 


(CHECK DATA FROM THE STACK 
('BRANCH IF OK 

(DATA ON STACK (177652) CHANGED 


CMP #125252, ANS4 

BEQ ,*4 

HLT+4 


(CHECK DATA FROM STACK 
(BRANCH IF OK 

(DATA ON STACK (125252) CHANGED 


CMP #177452, ANS5 

BEQ ,*A 

HLT*6 


(CHECK DATA FRpM STACK 
(BRANCH IF OK 

(DATA ON STACK (177452) CHANGED 


CMP #125253, ANS6 

BEQ ,*4 



(CHECK DATA FROM STACK 
(BRANCH IF OK 



MAIND 


'1-DBKEA-A 


KEU*" (PDP-11 FIS) INSTRUCTION TEST 


DiKEAA^ 

Pii 

FADO TEST SECTION 




737 

P03556 

104006 




HLT+6 


738 







#16, ICNT 

739 

503560 

122767 

000016 

175212 

EN016I 

CMPB 

740 

503566 

001401 




BEQ 

, #4 

74X 

503570 

1040S0 




HLT 


742 








743 

503572 

104400 




SCOPE 


744 








745 








746 






747 





{TEST 

171 

FADO (KEUF FL 

748 





1 

177452* 

125252 * 177652 

749 





( 

PS » 3501 STACK 

750 

751 

752 





( 

««•*••••• 

*•*«»*•••«••••• 

503574 

004567 

012522 


TST17I 

USR 

R5| PUSHR 

753 

503600 

177652 

125252 



.WORD 

1776521 125252 

754 

503604 

177452 

125252 



.WORD 

177452,125252 

755 

503610 

000357 




.WORD 

357 

756 

503612 

016606 

000340 



.WORD 

TRAPER,340 

757 

503616 

012704 

000630 



MOV 

#STACK0,R4 

758 








759 

503622 

000240 




NOP 


760 

761 

762 

503624 

075004 




FADD* 

R4 

503626 

004767 

011522 



JSR 

PC, POPR 

763 

503632 

010467 

174744 



MOV 

R4, $S# 

764 

503636 

022767 

000350 

174734 


CMP 

#350, 5PSW 

765 

503644 

001401 




BEQ 

,*4 

768 

767 

7^8 

503646 

104000 




HLT 


503650, 

022767 

000634 

174724 


CMP 

#STACk4,S5p 

769 

503656 

001401 




BEQ 

,*4 

770 

771 

772 

503660 

104000 




HLT 


503662 

022767 

177777 

174714 


CMP 

#177777, ANSI 

773 

503670 

001401 




BEQ 

,♦4 

774 

503672 

104002 




HLT*2 


775 








776 

503674 

022767 

177777 

174704 


CMP 

#177777,ANS2 

111 

503702 

001401 




BEQ 

,#4 

778 

503704 

104002 




HLT+2 


779 







#17, ICNT 

780 

503706 

122767 

005017 

175064 

END17I 

cmpb 

781 

503714 

001401 




BEQ 

,*4 

782 

503716 

104000 




HLT 


783 






SCOPE 


784 

503720 

104400 





785 









NACYll’,620 21-AUG-72 12107 PAGE 17 


(DATA ON STACK (125253) CHANGED 

(CHECK the TEST NUMBER 
(BRANCH IF OK 

(WRONG TEST! PC MUST HAVE FOULED UP, 


R4 


(PUSH 4 WORDS onto R4 STACK* SET PRIORITY 

I'SICOND OPERAND ON TOP 

(PJRST OPERAND ON BOTTOM 

(PROCESSOR PRIORITY LEVEL 

(FIS TRAP VECTOR 

(SET UP STACK POINTER 


iFLOATInG ado on the R4 stack 

(POP the ANSWER 
(SAVE "STACK POINTER" 

(CHECK PS (EXCEPT T BIT) 

(BRANCH IF OK 

(PS NOT EQUAL TO 590 

(CHECK THE STACK POINTER (R4) 

(BRANCH If OK 

iSfACK pointer (R4) not eOUAL TQ PSTACK4 

(CHECK FIRST HALF OF ANSWER 

(BRANCH IP OK 

(ANSI NOT EQUAL TO 177777 

(CHECK SECOND HAI.F OF ANSWER 

(BRANCH IF OK 

(ANS2 not equal to 177777 

(CHECK THE TEST NUMBER 
(BRANCH IF OK 

(WRONG TEST! PC MUST HAVE FOULED UP, 



MAINDEC-11-OBKeA-A KElir (PDP-11 PIS) INSTRUCTION TESTS, MACTll',620 21;aU6»72 12107 PACE 18 

DBKEAA.PU FADO TEST SECTION 

786 

787 }•*»•*»*******»*«*•♦*•#**•*••#*#♦•*»**•*«#*»••***•******#*•••*******•***• 

788 ITEST 201 FADO (KEllF FLOATING ADD INSTRUCTION) 

789 I 077652,125253 * 077452,125252 «s> OVERFLOW 

790 j PS(ON STACK) S 002, STACK POINTER « SP 

79j^ j#o«ff***»**« #*»•*••#«••»»•#**•*#**»*»*#*••#»»*»***•****•*•**»*•#•*•****•* 

792 . . 


793 

003722 

004567 

012216 


TST20I 

JSR 

R5, 

PUSHS 

)PUSH*4 WORDS ONTO STACK, SET PRIORITY 

794 

003726 

077452 

125252 



.WORD 

077452, 

125252 

iSECOND OPERAND ON TOP 

795 

003732 

277652 

125253 



.WORD 

077652, 

125253 

jFIRST operand ON BOTTOM 

796 

C03736 

000003 




.WORD 

003 


/PROCESSOR priority LEVEL 

797 

P03740 

003764 

000344 



.WORD 

ISR20I 

344 

(FIS TRAP VECTOR 

798 










799 

003744 

000240 




NOP 




800 

003746 

075006 




FADD* 

SP 


ifloating ado on the stack 

801 

802 

003750 

004767 

012230 


RTA20I 

JSR 

X7, 

POPS 

IPOP the "ANSWER" 

803 

003754 

104002 




HLT+2 



/ris trap DIDN'T OCCURES 

604 

003756 

012706 

000500 



MOV 

#500, 

SP 

jRESTORE the STACK POINTER 

805 

003762 

000454 




BR 

ENQ20 



806 

807 

003764 

004767 

012250 


ISR20I 

J5R 

%7i 

POPES 

/POP ALL data off the STACK 

808 

003770 

022706 

000500 



CMP 

#500, 

SP 

/CHECK THE STACK POINTER 

809 

003774 

001404 




BEO 

ISA20 


/BRANCH IP OK 

810 

003776 

012706 

008500 



MOV 

#500, 

SP 

/RESTORE the STACK POINTER 

811 

004002 

104000 




hlt 



/stack pointer fouled up 

812 
fS 4 

004004 

000443 




BR 

ENO20 


JSKIP REST OF TEST 

813 

814 

004006 

022767 

000344 

174564 

ISA20I 

CMP 

#344, 

SPSW 

ICHECK PS after FIS TRAP 

815 

004014 

001401 




BEO 

• *« 


/branch if ok 

816 

004016 

104000 




HLT 



/PS after FIS TRAP NOT EQUAL TO 36# 

817 

818 

004020 

022767 

003750 

174556 


CMP 

#RTA20, 

ANSI 

iCHECK ns TRAP RETURN AOORCSS 

819 

004026 

001401 




BEO 

,*4 


/BRANCH IF OK 

820 

004030 

104001 




HLT*1 



iFlS trap AT WRONG ADDRESS 

821 

822 

004032 

022767 

000002 

174546 


CMP 

#002, 

AN82 

ICHECK PS before FlS TRAP 

823 

004040 

001401 




SE5 

,4»4 


/BRANCH IF OK 

824 

004042 

104002 




HLT*2 



|P8 at FIS trap time not 002 

825 

826 

004044 

022767 

077452 

174536 


CMP 

0077432 

iANS3 

/CHECK DATA FROM THE STACK 

827 

004052 

001401 




BEQ 



/BRANCH IF OK 

828 

004054 

104004 




HLT+4 



IDATA ON STACK (077452) CHANGED 

829 

830 

004056 

022767 

125252 

174526 


CMP 

#3125252 

*ANS4 

ICHECK DATA FROM STACK 

831 

004064 

001401 




SEQ 

,4^4 


IBRANCH IF OK 

832 

004066 

104004 




HLT*4 



(DATA ON STACK (125252) CHANGED 

833 










834 

004070 

022767 

077652 

174516 


CMP 

#077852 

lANSS 

/CHECK DATA FROM STACK 

835 

004076 

001401 




BEQ 

t *4 


/BRANCH IF OK 

836 

004100 

104006 




HLT*6 



/DATA ON stack (077652) CHANGED 

837 










838 

004102 

022767 

125253 

174506 


cmp 

#125253 

,ANS6 

/CHECK DATA FROM STACK 

839 

004110 

001401 




BEQ 



iBRANCH IF OK 
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640 

704112 

104006 




H|,T*6 


84 X 








842 

704114 

122767 

303020 

174656 

END20I 

CHPB 

#20, ICnT 

643 

204122 

001401 




8EQ 

.*4 

644 

704124 

104000 




HUT 


845 








846 

704126 

104400 




SCOPE 


847 








646 








649 






850 





(TEST 

211 

FSUB (KEllF FL 

85X 





1 

177520, 

017552 • 135352 

852 





1 

PS » 050, STACK 

853 





] 



654 








855 

704130 

004567 

012166 


TST21I 

JSR 

R5, PUSHR 

856 

704134 

135352 

051107 



,WORD 

135352,051107 

857 

704140 

177520 

017552 



.WORD 

177520,017552 

858 

704144 

000040 




.WORD 

040 

859 

704146 

016606 

000340 



,WORD 

TRAPER, 340 

860 

704152 

012701 

000630 



MOV 

#STACK0,RI 

861 








862 

704156 

000240 




NOP 


863 

704160 

075011 




FSUB* 

Rl 

864 








865 

704162 

004767 

012166 



JSR 

PCi POPR 

866 

704166 

010167 

174410 



MOV 

Rl, SSP 

867 

704172 

022767 

000050 

174400 


CMP 

#050, SPSW 

868 

704200 

001401 




BEQ 

• *4 

869 

fi ^ IM 

704202 

104000 




hlt 


870 

871 

704204 

022767 

000634 

47i370 


CMP 

#STACK4,SSP 

872 

704212 

001401 




BEQ 

• ♦4 

873 

704214 

104000 




HLT 


6 74 
875 

704216 

022767 

177520 

174360 


CMP 

#177520, ANSI 

876 

704224 

001401 




BED 

,*4 

877 

704226 

104002 




HLT*2 


878 








879 

704230 

022767 

017552 

174350 


CMP 

#017552, ANS2 

880 

704236 

001401 




BEQ 

1*4 

88X 

004240 

104002 




hlt +2 


882 








883 

704242 

122767 

000021 

174530 

END21I 

CMP8 

#21, ICNT 

884 

704250 

001401 




BEQ 

,*4 

885 

704252 

104000 




HLT 


886 








887 

704254 

104400 




SCOPE 


888 









jDATA on stack (125253) CHANGED 

{CHECK THE TEST NUMBER 
{BRANCH IF OK 

(WRONG TEST! PC MUST WAVE FOULED UP, 


{'PUSH 4 WORDS ONTO R1 STACK, SIT PRIORITY 

{SECOND OPERAND ON TOP 

(FIRST OPERAND ON BOTTOM 

{PROCESSOR PRIORITY LEVEL 

(FIS TRAP VECTOR 

{'SET UP STACK POINTER 


iFLDATfNG SUBTRACT ON THE Rl STACK 

{POP THE answer 
{'SAVE "STACK POINTER" 

(CHECK PS (EXCEPT T BIT) 

{'BRANCH IF OK 

IPS not equal to 050 

(CHECK THE STACK POINTER (Rl) 

(BRANCH IF OK 

(STACK POINTER (Rl) NOT EQUAL TO P8TACK4 

(CHECK FIRST HALF OF ANSWER 

(BRANCH IF OK 

(ANSI NOT EQUAL TO 177520 

(CHECK SECOND HAlF OF ANSWER 

(BRANCH IF OK 

(ANS2 NOT EQUAL TO 017552 

(CHECK THE TEST NUMBER 
(BRANCH IF OK 

(WRONG TESTl PC MUST HAVE FOULED UP, 
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889 

890 

891 

892 

893 

894 


j *««•#»•**•**••***•*♦**#»»»**•***•*#**•**#********•**♦************•*•*** 

ITEST 221 rSUB (KEUr FLOATING SUBTRACT INSTRUCTION) 

} 125252,125252 • 125252,125253 * 017400,000000 

I PS = 040, STACK POINTER s R0 


895 







896 

004256 

004567 

012040 


TST22I 

JSR 

897 

004262 

125252 

125253 



.WORD 

898 

004266 

125252 

125252 



.WORD 

899 

204272 

000047 




.WORD 

900 

204274 

016606 

000340 



.WORD 

901 

204300 

012700 

000630 



MOV 

902 







903 

204304 

000240 




NOP 

904 

204306 

075010 




FSUB* 

905 







906 

204310 

004767 

012040 



JSR 

907 

204314 

010067 

174262 



MOV 

908 

204320 

022767 

000040 

174252 


CMP 

909 

204326 

001401 




BEO 

910 

Q 4 4 

204330 

104000 




H1.7 

»ll 

912 

204332 

022767 

000634 

174242 


CMP 

913 

204340 

001401 




BEQ 

914 

204342 

104000 




HIT 

VIP 

916 

204344 

022767 

017400 

174232 


CMP 

917 

204352 

001401 




8EQ 

918 

204354 

104002 




HLT*2 

919 







920 

204356 

005767 

174224 



TST 

921 

204362 

001401 




BfO 

922 

204364 

104002 




HLT*2 

923 







924 

204366 

122767 

000022 

174404 

END22I 

cmpb 

925 

204374 

001401 




BEQ 

926 

204376 

104000 




HIT 

927 







928 

204400 

104400 




SCOPE 

929 








R5, PySHR 
125252,125253 
125252,125252 
047 

TRAPER, 340 
#STACK0,R0 

IPUSH 4 WORDS ONTO R0 STACK, SET 
iSCCONO OPERAND ON TOP 
iHRST operand on BOTTOM 
IPROCESSOR priority LEVEL 
IFIS TRAP vector 

i'set up stack pointer 

PRIORITY 

R0 

iFIOATInG subtract on the R0 stack 

PCi POPR 

R0, SSP 

4040, SPSW 

.*4 

IPOP the answer 
iSAVE "STACK POINTER" 
ICHECK PS (EXCEPT T BIT) 
I'BRANCH IF OK 
jPS NOT EQUAL TO 040 


«STACK4,SSP 

,44 

(CHECK THE STACK POINTER (R0) 
IBRANCH IF OK 

(STACK POINTER (R0) NOT EQUAL TO 

«STACK4 

4017400, ANSI 

, *4 

(CHECK FIRST HALF OF ANSWER 

(BRANCH IF OK 

(ANSI not equal TO 017400 


ANS2 

1 44 

(CHECK SECOND HALF OF ANSWER 

iSranch if ok 

(ANS2 NOT EQUAL TO 000000 


422, ICNT 

,44 

(CHECK THE TEST NUMBER 
(BRANCH IF OK 

(WRONG TEST! PC MUST HAVE FOUtEO 





HAINDk |i»OBKEA«^A KE 

OBKEAA.Pll FSU8 TEST 


tlF {pop'll! ris) 
lECTION 


INSTRUCTION TEST, 


HASyn;620 21»AUG»72 12107 


930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 
940 

949 

950 

951 
95? 

953 

954 

955 

956 

957 

958 

959 

960 

961 
96? 

963 

964 

965 

966 

967 

968 

969 

970 


ITEST 231 rSUS <KEUP FLOATING SUBTRACT INSTRUCTION) 

} 002460#123456 » 100177 i 177777 = 002460 | 123456 

I PS = 030# STACK POINTER « SP 


204402 

204406 

204412 

204416 

204420 

004567 

100177 

002460 

000015 

016606 

011536 

177777 

123456 

000340 


TST23I 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

R5, 

100177| 

0024601 

015 

TRAPERi 

pgsHs 

177777 

123456 

348 

IPUSH 4 WORDS ONTO STACK, SET PRIORITY 
iSECOND OPERAND ON TOP 
IFIRST operand on BOTTOM 
IPROCESSOR PRIORITY UEVEU 
l‘FIS TRAP VECTOR 

204424 

204426 

000240 

075016 




NOP 

rsuB* 

SP 


jFUOATInG SgSTRACT ON THE STACK 

204430 

204434 

204440 

204442 

204446 

204450 

004767 

022706 

001404 

012706 

104000 

000417 

011550 

000500 

000500 



gsR 

CMP 

BEQ 

MOV 

H1.T 

BR 

PCi 

45001 

TSA23 

#5001 

EN023 

POPS 

SP 

SP 

IPOP THE ANSWER 
I'CHECK THE STACK POINTER 
iBRANCH IF OK 
IRESTORE STACK POINTER 
iSTACK POINTER FOgUED gP 
ISKIP REST OF TEST 

204452 

204460 

204462 

022767 

001401 

104000 

000000 

174120 

TSA23J 

CMP 

BEQ 

HUT 

410001 

t*4 

SPSW 

ICHECK PS (EXCEPT T BIT) 

liRANCH If OK 

I'PS NOT EQUAU TO 000 

204464 

204472 

204474 

022767 

001401 

104002 

002460 

17^12 


CmP 

BEQ 

HUT+2 

#002460 
. 44 

1 ansi 

iCHECK FIRST HAUP OF ANSWER 

IBRANCH IF OK 

jANSl NOT IQgAU TO 002468 

204476 

204504 

204506 

022767 

001401 

104002 

123456 

174102 


CMP 

BEQ 

HI.T+2 

#123456 

,♦4 

»ANS2 

iCtlECK SECOND HAUF Qf ANSWER 

iBRANCH IF OK 

IANS2 NOT IQgAU TO 123456 

204510 

204516 

204520 

122767 

001401 

104000 

000023 

174262 

IND23I 

cmpb 

BEQ 

HUT 

#23. 

.*4 

ICNT 

ICWECK THE TEST NgMBER 
jBRANCH if OK 

IWRONG TESTl PC MOST HAVE FOgUED UP* 

204522 

104400 




SCOPE 





) 
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971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 
986 

989 

990 

991 

992 
995 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 


(TEST 241 FSyB (KEllF FLOATING SUBTRACT INSTRUCTION) 

I ?00425|052525 » 000252,125252 # 000200,000000 

f PS = 200, STACK POINTER i R4 

}*o*«#»«»***««»«**«#**#*** ***»*»••****»•***•******•*»**••******•******** 


004524 

004530 

004534 

204540 

004542 

004546 

004567 

000252 

000425 

000217 

016606 

012704 

011572 

125252 

052525 

000340 

000630 


TST24I 

USR 

.WORD 

.WORD 

.WORD 

.WORD 

MOV 

R5, 

000252, 

000425| 

217 

TRAPERi 

4STACK0 

PUSHR 

125252 

052525 

340 

.R4 

JPUSH 4 WORDS onto R4 STACK, SET PRIORITY 

jSECONO OPERAND ON TOP 

iPfRST OPERAND ON BOTTOM 

JPROCESSOR PRIORITY LEVEL 

|F!S TRAP VECTOR 

ISET UP STACK POINTER 

004552 

004554 

000240 

075014 




NOP 

FSUB* 

R4 


iFLiOATlNC SUBTRACT ON THE R4 STACK 

004556 

004562 

004566 

004574 

004576 

004767 

010467 

022767 

001401 

104000 

011572 

174014 

000200 

174004 


USR 

MOV 

CMP 

BEO 

HLT 

PC. 

R4i 

4200, 

.*4 

POPR 

SSP 

SPSW 

ipop the answer 

iSAVE "STACK POINTER" 
ICHECK PS {EXCEPT t BIT) 
IBRANCH IF OK 
tPS NOT EQUAL TO 200 

004600 

004606 

004610 

022767 

001401 

104000 

000634 

173774 


CMP 

8E0 

HUT 

4STACK4 

.*4 

,$SP 

ICHECK THE STACK POINTER (R4) 

IBRANCH IF OK 

iSTACK pointer (R4) NOT EQUAL TO #STACK4 

004612 

004620 

004622 

022767 

001401 

104002 

000200 

173764 


CMP 

BEQ 

HLT*2 

#000200 

,*4 

,AN31 

ICHECK FIRST HALF OF ANSWER 

IBRANCH IF OK 

lANSl NOT EQUAL TO 000200 

004624 

004630 

004632 

005767 

001401 

104002 

175756 



T5T 

SCS 

ANI2 

,♦4 


ICHECK SECOND HALF OF ANSWER 

IBRANCH IF OK 

IANS2 NOT EQUAL TO 000000 

004634 

004642 

004644 

122767 

001401 

104000 

000024 

174136 

EN024I 

cmpb 

beq 

HLT 

#|4, 

,*4 

ICNT 

ICHECK THE TEST NUMBER 
IBRANCH IF OK 

IWRONC TESTl PC MUST HAVE FOULED UP’, 


00464$ 


104400 


SCOPE 
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1B12 
iei3 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 004734 022767 000340 173636 ISA25I CmP 

1041 004742 001401 BEG 

1042 004744 104000 HLT 

1043 

1044 004746 022767 004676 173630 CMP 

1045 004754 001401 BEQ 

1046 004756 104001 HLT*1 

1047 

1048 004760 022767 000250 173620 CMP 

1049 004766 001401 BEO 

1050 004770 104000 HI.T42 

1051 

1052 004772 022767 000052 173610 CMP 

1053 005000 001401 BEO 

1054 005002 104004 Hl,T+4 

1055 

1056 005004 022767 105053 173600 CMP 

1057 005012 001401 BEQ 

1058 005014 104004 HUT+4 

1059 

1060 005016 022767 000425 173570 CMP 

1061 005024 001401 BEO 

1062 005026 104006 HL,T*6 

1063 

1064 r05030 022767 052525 173560 CMP 

1065 ?05036 001401 BEO 


R5| 

PUSHS 

(PUSH 4 WORDS ONTO STACK, SET PRIORITY 

000252, 

125253 

iSECOND OPERAND ON TOP 

000425, 

052525 

IFIRST operand on BOTTOM 

257 


IPROCESSOR PRIORITY LEVEL 

ISR25, 

340 

iFtS TRAP vector 

SP 


ifl'oating subtract on the stack 

X7, 

POPS 

IPOP the "ANSWER" 

I'PIS TRAP DIDN'T OCCUREI 

#500, 

END25 

SP 

iRESTORE THE STACK POINTER 

%7, 

POPES 

IPOP all data off The stack 

#500, 

SP 

ICHECK THE STACK POINTER 

I5A25 


I'BRANCH IF OK 

#500, 

SP 

IRESTORE the STACK POINTER 
ISTACK POINTER FOWLED UP 

END25 


iSKiP Rest of test 

#340, 

SPSM 

ICHECK PS AFTER FIS TRAP 

, *4 


IBRANCH IF OK 

IPS after pis trap not EQUiL TO 340 

#RTA25, 

ANSI 

ICHECK FIS trap return ADDRESS 

,*4 


IBRANCH if OK 

IFIS TRAP AT WRONG ADDRESS 

#252, 

ANS2 

ICHECK PS before FIS TRAP 

, *4 


IBRANCH IF OK 

IPS AT FIS TRAP TIME NOT 252 

#000252 

,ANS3 

ICHECK DATA FROM THE STACK 

, *4 


IBRANCH IF OK 

IDATA ON stack (000252) CHANGED 

#125253 

• ANSA 

ICHECK DATA FROM STACK 

,*4 


I'BRANCH IF OK 

iDATA ON STACK (125253) CHANGED 

#000425 

,ANS5 

ICHECK DATA FROM STACK 



IBRANCH IF OK 

I’DATA ON stack (000425) CHANCED 

#052525 

• ANS6 

ICHECK DATA FROM STACK 

,*4 


1 branch IF OK 


ITEST 251 FSUB (KEllF rUOATING SUBTRACT INSTRUCTION) 

} 700425|052525 • 000252 i 125253 »»> UNDERFLOW 

} PS(ON STACK) s 252, STACK POINTER « SP 

}•♦«**#»»«»*•*•***♦*»*•***»**••****••**•*•**************••**••***•******* 


e04650 

004567 

011270 

TST25I 

JSR 

?04654 

000252 

125253 


.WORD 

T04660 

000425 

052525 


.WORD 

? 0 4664 

000257 



.WORD 

Z 0466 6 

004712 

000340 


.WORD 

Z04672 

000240 



NOP 

Z04674 

075016 



FSUB + 

Z04676 

004767 

011302 

RTA25I 

WSR 

Z04702 

104002 



HLT*2 

Z04704 

012706 

000500 


MOV 

004710 

000454 



BR 

004712 

004767 

011322 

ISR25I 

JSR 

004716 

022706 

000500 


CMP 

004722 

001404 



BEO 

004724 

012706 

000500 


MOV 

004730 

104000 



hut 

004732 

000443 



BR 
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1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 


005040 104006 


^05042 

?05050 

e05052 

Z05054 


122767 000025 173730 

001401 

104000 

104400 


EN025l 


HI.T+6 

CMPB 

BEQ 

HIT 

SCOPE 


iDATA on stack (052525) CHANGED 

#25, ICNT iCHECK the TEST NUMBER 
,*4 jBRANCH IF OK 

)WRONC TEST! PC MUST HAVE FOULED UP, 


J, V W 

1031 

005056 

004567 

011062 


TST26I 

JSR 

R5, 

PUSHS 

1082 

005062 

077652 

125252 



.WORD 

077652, 

125252 

1083 

005066 

177452 

125252 



.WORD 

177452, 

125?52 

1084 

005072 

000357 




.WORD 

357 


1085 

005074 

016606 

000340 



.WORD 

TRAPER, 

340 

1086 









1087 

005100 

000240 




nor 



1088 

005102 

075016 




FSUB* 

SP 


1089 









1090 

005104 

004767 

011074 



JSR 

PCi 

POPS 

1091 

005110 

022706 

000500 



CMP 

#500, 

SP 

1092 

005114 

001404 




BEQ 

T5A26 


1093 

005116 

012706 

000500 



MOV 

#500, 

SP 

1094 

005122 

104000 




HLT 



1095 

005124 

000417 




BR 

EN026 


1090 

1097 

005126 

022767 

000350 

173444 

TSA26I 

CMP 

#3?0I 

SP8W 

1098 

005134 

001401 




BEQ 

,44 


1099 

4 4 A A 

005136 

104000 




HLT 



1100 

1101 

005140 

022767 

177777 

173436 


CMP 

#177777 

,AN31 

1102 

005146 

001401 




BEQ 

,44 


1103 

005150 

104002 




HLT*2 



1104 

1105 

005152 

022767 

177777 

173426 


CMP 

#177777 

,ANS2 

1106 

005160 

001401 




BEQ 

,** 


1107 

005162 

104002 




HLT*2 



1108 

1109 

005164 

122767 

000026 

173606 

END26I 

cmpb 

#26, 

ICNT 

1110 

005172 

001401 




BEQ 

,44 


1111 

005174 

104000 




HLT 



1112 









1113 

005176 

104400 




SCOPE 




)•**«»**•*********•*#»**•*******•**••**♦**•***••*•***•*•••****#**•**••** 

JTEST 261 FSUB (KEUF FLOATING SUBTRACT INSTRUCTION) 

J 177452,125252 » 077652,125252 A 177777| 177777 

I PS = 350, STACK POINTER • SP 


(PUSH 4 WORDS ONTO STACK, SET PRIORITY 

i'sicond operand on top 

IFTRST OPERAND ON BOTTOM 
(PROCESSOR PRIORITY LEVEL 
(FIS TRAP VECTOR 


(FLO*T|nG SUBTRACT ON THE STACK 

(POP the answer 
iCftECK THE stack POINTER 
(BRANCH IF OK 
(RESTORE STACK POINTER 
(STACK POINTER FOULED UP 
(SKIP REST OF TEST 

(CHECK PS (EXCEPT T BIT) 

(BRANCH IF OK 

(PS NOT EQUAL TO 350 

(CHECK FIRST HALF OF ANSWER 

(BRANCH IF OK 

(ANSI NOT EQUAL TO 177777 

(CHECK SECOND HALF OF ANSWER 

(BRANCH IF OK 

(ANS2 NOT equal TO 177777 

(CHECK THE TEST NUMBER 
(BRANCH IF OK 

(WRONG TESTS PC MUST HAVE FOULED UP, 


1114 
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DBKE^is,- 

^11 

rSUB TEST SECT 

ION 




1115 








1116 






1117 





ITEST 271 

FSUB (KEllF FLOATING SUBTRACT INSTRUCTION) 

1118 





1 ^77652 

,125253 • 177452, 

125252 ss> OVERFLOW 

1119 





1 PS(ON 

STACK) 8 002, 

STACK POINTER * R3 

1120 






1121 

1122 

005200 

004567 

011116 


TST27I JSR 

R5, PUSHR 

JPUSH 4 WORDS ONTO R3 STACKi SET PRIORITY 

1123 

?05204 

177452 

125252 


.WORD 

177452,125252 

iSICONO OPERAND ON TOP 

1124 

005210 

277652 

125253 


.WORD 

077652,125253 

IFIRST operand ON BOTTOM 

1125 

005214 

200015 



.WORD 

015 

IPROCESSOR PRIORITY LEVEL 

1126 

S05216 

005246 

000344 


.WORD 

ISR27, 344 

iflS TRAP VECTOR 

1127 

005222 

012703 

000630 


MOV 

)»STACK0,R3 

ISET UP R3 AS STACK POINTER 

1128 








1129 

005226 

000240 



NOP 



1130 

005230 

075013 



FSU8* 

R3 

iTloating subtract on the r3 stack 

1131 








1132 

005232 

004767 

011116 


RTA27J JSR 

X7, POPR 

IPOP THE "ANSWER" 

1133 

005236 

010367 

173340 


MOV 

R3, SSP 

ISAVE STACK POINTER (R3) 

1134 

005242 

104002 



Hl.T+2 


IPIS TRAP DIDN'T OCCUREI 

1135 

005244 

000454 



BR 

EN027 


1136 








1137 

006246 

004767 

011134 


ISR27I jSR 

X7, PQPER 

IPOP ALL OATA off the STACKS 

1136 

005252 

010367 

173324 


MOV 

R3, SSP 

iSAVE STACK POINTER (R3) 

1139 

005256 

022767 

000344 

173314 

CMP 

#344, SPSW 

jCHECK PS AFTER FIS TRAP 

1140 

005264 

001401 



BE (3 

,*4 

I'BRANCH IF OK 

1141 

005266 

104000 



HIT 


IPS after FIS TRAP NOT EQUAL TO 344 

1142 

1143 

005270 

022767 

000630 

J73304 

CMP 

#STACK0,$SP 

iCHECK the STACK POINTER (R3) 

1144 

005276 

001401 



BEQ 

.*4 

ISRANCH IF OK 

1145 

005300 

104000 



HUT 


iSTACK POINTER (R3) NOT EQUAL TO #STACK0 

1146 

1147 

005302 

022767 

005232 

173274 

CMP 

#RTA27, ANSI 

ICHECK ns TRAP RETURN ADDRESS 

1146 

005310 

001401 



BEQ 

,♦4 

jbranch if ok 

1149 

005312 

104001 



HUT*1 


IFIS TRAP AT WRONG ADDRESS 

1150 

1151 

005314 

022767 

000002 

173264 

CMP 

#002, ANS2 

iCHECK PS before FlS TRAP 

1152 

005322 

001401 



BEQ 

. *4 

I'BRANCH IF OK 

1153 

005324 

104002 



HUT*2 


IPS AT ns TRAP TIME NOT 002 

1154 

1155 

005326 

022767 

177452 

173254 

CMP 

#177452, ANS3 

iCHECK data from THE STACK 

1156 

005334 

001401 



BEQ 

,*4 

IBRANCH if ok 

1157 

005336 

104004 



HUT*4 


lOATA ON stack (177452) CHANGED 

1158 

1159 

005340 

022767 

125252 

173244 

CMP 

#125252, AN84 

ICHECK DATA FROM STACK 

1160 

005346 

001401 



SEO 

.♦4 

iBRAnch if ok 

1161 

005350 

104004 



HUT*4 


IQATA ON STACK (125252) CHANGED 

1162 

1163 

005352 

022767 

077652 

173234 

CMP 

#077652, AN35 

ICHECK DATA FROM STACK 

1164 

005360 

001401 



BEQ 

,*4 

IBRANCH IF OK 

1165 

005362 

104006 



HUT + 6 


iDATA on STACK (077652) CHANGED 

1166 

1167 

005364 

022767 

125253 

173224 

CMP 

#125253, ANS6 

iCHECK data from STACK 

1168 

005372 

001401 



BEQ 

1*4 

I'BRANCH IF OK 



• ««u » ii f 




DBKEAA.PU 

FSUB TEST SECTION 





1169 

?05374 

104006 




HUT* 6 


lOATA ON STACK (125253) CHANGEP 

1170 

1171 

?05376 

122767 

000027 

173374 

EN027! 

cmpb 

#27, ICNT 

ICHECK the TEST NUMBER 

1172 

705404 

001401 




BEQ 

1*4 

jBRANCH IF OK 

1173 

705406 

104000 




HUT 


IWPONC TESTI PC MUST HAVE FOUUED UP, 

1174 









1175 

705410 

104400 




SCOPE 



1176 









1177 









1178 





1 

1179 





ITEST 

301 

FSUB {KEllF PUOAtlWG SUBTRACT INSTRUCTION) 

1160 






035152, 

125252 • 043125 

,052525 • 143125,052524 

1181 





1 

PS s 150, ST4CK 

POINTER ■ R3 

1182 





I #*«****»*•#**•**##*«*»**»#•**•*•»*•###*****»*****•***»•••****•**••••»*• 

1183 

1184 

705412 

004567 

010704 


TST30I 

JSR 

R5, PgSHR 

IPUSH 4 WORDS ONTO R3 STACKi SET PRIORITY 

1185 

705416 

043125 

052525 



.WORD 

043125,052525 

ISECOND OPERAND ON TOP 

1186 

705422 

035152 

125252 



.WORD 

035152,125252 

iFfRST OPERAND ON BOTTOM 

1187 

705426 

000147 




.WORD 

147 

IPROCESSOR PRIORITY UEVEt 

1188 

705430 

016606 

000340 



.WORD 

TRAPER, 340 

IFIS TRAP VECTOR 

1189 

005434 

012703 

000630 



MOV 

iSTACK0,R3 

ISIT UP STACK pointer 

1190 









1191 

005440 

000240 




NOP 



1192 

4 4 O It 

005442 

075013 




FSUB* 

R3 

IFUOATInG subtract on the R3 STACK 

1194 

005444 

004767 

010704 



JSR 

PC, POPR 

(POP THE ANSWER 

1195 

005450 

010367 

173126 



MOV 

R3, SSP 

iSAVE "STACK POINTER" 

1196 

005454 

022767 

000150 

173116 


CMP 

#150, SPSW 

(CHECK PS (EXCEPT T BIT) 

1197 

005462 

001401 




BEO 

1*4 

(BRANCH IF OK 

1196 

005464 

104000 




HI.7 


(PS NOT EQUAU TO 150 

1199 

1200 

005466 

022767 

000634 

17?106 


CMP 

#5TACK4,S|P 

ICSECK THE STACK POINTER IH3) 

1201 

005474 

001401 




BEO 

,♦4 

(BRANCH IF OK 

1202 

005476 

104000 




HUT 


iStACK pointer IR3) NOT EQUAU TQ #STACK4 

1203 

1204 

705500 

022767 

143125 

173076 


CMP 

#143125, ANSI 

iCHECK FIRST HAUP OF ANSWER 

1205 

005506 

001401 




BEO 

.*4 

(BRANCH IF OK 

1206 

005510 

104002 




HUT*2 


(ANSI NOT EQUAU TO 143125 

1207 

1206 

005512 

022767 

052524 

173066 


CMP 

#052524, ANS2 

(CHECK SECOND HALF OF ANSWER 

1209 

005520 

001401 




BEO 

,*4 

(BRANCH IF OK 

1210 

005522 

104002 




HUT*2 


(ANS2 NOT EQUAL TO 052524 

1211 

1212 

005524 

122767 

000030 

173246 

ENO30J 

CMPB 

#30, ICNT 

(CHECK THE TEST NUMBER 

1213 

705532 

001401 




BEO 

.*4 

(BRANCH IF OK 

1214 

005534 

104000 




HUT 


(WRONG TEST! PC MUST HAVE FOULED UP', 

1215 









1216 

005536 

104400 




SCOPE 




1217 
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1218 

1219 

1220 
1221 
1222 
1223 


)**«****•*•♦•*»#*•**«*•****•**•***»***• **••***•***••*»**••**•*•*•******• 

(TEST 311 FSUB (KEllF FLOATING SUBTRACT INSTRUCTION) 

j 143325,052525 « 135152,125252 = 143325,052525 

J PS = 250, STACK POINTER * R0 

j **#*#***#**•*•#************•**•****•*••*•«•»•*»*•****•*•••**••*•****••* 


1224 







1225 

005540 

004567 

010556 


TST31I 

JSR 

1226 

005544 

135152 

125252 



.WORD 

1227 

505550 

143325 

052525 



.WORD 

1228 

205554 

000243 




.WORD 

1229 

205556 

016606 

000340 



.WORD 

1230 

205562 

012700 

000630 



MOV 

1231 







1232 

2 05566 

000240 




NOP 

1233 

205570 

075010 




FSUB* 

1234 







1235 

205572 

004767 

010556 



JSR 

1236 

205576 

010067 

173000 



MOV 

1237 

205602 

022767 

000250 

172770 


CMP 

1238 

205610 

001401 




beq 

1239 

205612 

104000 




HLT 

1240 







1241 

205614 

022767 

000634 

172760 


CMP 

1242 

205622 

001401 




BEO 

1243 

205624 

104000 




HI.T 

1244 







1245 

205626 

022767 

143325 

172750 


CMP 

1246 

205634 

001401 




BES 

1247 

205636 

104002 




HLT*2 

1248 







1249 

205640 

022767 

052525 

172740 


CMP 

1250 

205646 

001401 




bed 

1251 

205650 

104002 




HI.T+2 

1252 







1253 

205652 

122767 

000031 

173120 

EN031I 

CMPB 

1254 

205660 

001401 




BEO 

1255 

205662 

104000 




HLT 

1256 







1257 

205664 

104400 




SCOPE 

1258 








R5i 

PUSHP 

(PUSH 4 WORDS ONTO R0 STACKi SET 

PRIORITY 

135152, 

125252 

(SECOND OPERAND ON TOP 


143325, 

052525 

(FIRST operand ON BOTTOM 


243 


(PROCESSOR PRIORITY LEVEL 


TRAPER, 

340 

(FIS TRAP VECTOR 


PSTACK0 

,R0 

(SET gP STACK POINTER 


R0 


(FLOATING SUBTRACT ON THE R0 STACK 

PCi 

POPR 

(POP THE ANSWER 


R0, 

SSP 

(SAVE "STACK POINTER" 


#250, 

SPSW 

(CftECK PS (EXCEPT t BIT) 


,*4 


(BRANCH IF OK 




(PS NOT EQUAL TO 250 


P5TACK4 

(SSP 

(CHECK THE STACK POINTER IR0) 


, *4 


(BRANCH IP OK 




(STACK pointer (R0I not EQUAL TO 

iSTACKA 

4143325 

(ANSI 

(CHECK FIRST HALF OF ANSWER 


I *4 


(BRANCH IF OK 




(ANSI NOT EQUAL TO 143325 


#052525 

iANS2 

(CHECK SECOND half OF ANSWER 


.♦4 


(BRANCH IF OK 




(ANS2 NOT EQUAL TO 052325 


#31i 

I5NT 

iCWECK the TEST NUMBER 


,*4 


(BRANCH IF OK 



jWRONG TEST! PC MUST HAVE fOgiED UP, 
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1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 005666 

1267 005672 

1268 005676 

1269 005702 

1270 005704 

1271 005710 

1272 

1273 005714 

1274 005716 

1275 

1276 005720 

1277 005724 

1278 005730 

1279 005736 

1280 005740 

1281 

1282 005742 

1283 005750 

1284 005752 

1285 

1286 005754 

1287 005762 

1288 005764 

1289 

1290 005766 

1291 005774 

1290 005776 

1293 

1294 006000 

1295 006006 

1296 006010 

1297 

1298 006012 

1299 


;•*•****•**•*#**»**#**•*******••*•*■***•♦•*•*********••***••***•****•••** 

ITEST 321 FSUB (KEllF FLOATING SUBTRACT INSTRUCTION) 

J 135152,125252 ■ 143325,052525 a 043325,052525 

I PS = 340, STACK POINTER * R5 

j **»»*«♦*#«*#•«**••**************#«** »»•• ***••*•**«••***•••* *••***♦****• 


004567 

143325 

135152 

000357 

016606 

012705 

010430 

052525 

125252 

008340 

000630 


TST32I 

gSR 

.WORD 

.WORD 

.WORD 

.WORD 

MOV 

R5, PgSHR 
143325,052525 
135152,125252 
357 

TRAPER, 348 
4STACK0,R5 

IPUSH 4 WORDS ONTO R5 STACK, SET PRIORITY 

iSfCONO OPERAND ON TOP 

IFIRST operand on BOTTOM 

IPROCESSOR priority LEVEL 

|P!S trap VECTOR 

iSET UP STACK POINTER 

000240 

075015 




NQP 

FSUB* 

R5 

ifLOATlNS SUBTRACT ON THE R5 STACK 

004767 

010567 

022767 

001401 

104000 

010430 

172652 

000340 

172642 


gsR 

MOV 

CMP 

BCQ 

hlt 

PC, POPR 

R5, $SP 

#340, SP5W 

1*4 

IPOP the ANSWER 
ISAVE "STACK POINTER" 
jCRECK PS (EXCEPT T BIT) 
jaRANGH IF OK 
IPS NOT EQUAL TO 340 

022767 

001401 

104000 

000634 

172632 


CMP 

BEO 

HUT 

«STACK4,SSP 

,♦4 

ICNECK THE STACK POINTER (R5) 

IBRANCH IP OK 

ISTACK POINTER (R5) NOT EQUAL TO #STACK4 

022767 

001401 

104002 

043325 

172622 


CMP 

BEQ 

HLT*2 

#043325, ANSI 

.*4 

ICHECK FIRST HALF OF ANSWER 

iBRanch if ok 

lANSl NOT EQUAI, TO 043325 

022767 

001401 

104002 

052525 

172612 


CMP 

seq 

HiT*2 

#052525, ANS2 
,44 

ICHECK SECOND HALF OF ANSWER 

IBRANCH IF OK 

IANS2 NOT equal TO 052525 

122767 

001401 

104000 

000032 

172772 

EN032I 

CMPB 

BEO 

hlt 

#30, ICnT 

• *4 

ICWECK THE TEST NUMBER 
IBRANCH IF OK 

jWRONC TESTl PC MUST HAVE FOULED UP, 

104400 




SCOPE 





o 
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1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 


I **»**«»*»*♦•#*•*•*•*#*•**•********••**•*••*••***********•****••*****•** 

JTEST 331 FSUB (KEllF FLOATJNG SUBTRACT INSTRUCTION) 

( 043125,052525 • 035152,125252 * 043125,052524 

; PS s 040, STACK POINTER « R2 

!**»•*•*•*»•*•»#*•*•*•»#***••**#•**•»•*•****•**»**••*•****•*♦*•*******•* 


006014 

706020 

006024 

006030 

006032 

006036 

004567 

035152 

043125 

000040 

016606 

012702 

010302 

125252 

052525 

000340 

000630 


TST33I 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

MOV 

R5, PUSHR 
035152,125252 
043125,052525 
040 

TRAPER, 340 
#STaCK0,R2 

jPUSH 4 WORDS ONTO R2 STACK, SET PRIORITY 

jSECOND OPERAND ON TOP 

IFIRST operand on bottom 

iPROCESSOR PRIORITY LEVEL 

iPIS TRAP VECTOR 

iSET UP STACK pointer 

006042 

006044 

000240 

075012 




NOP 

FSUB+ 

R2 

ifloating subtract on the r2 stack 

006046 

006052 

006056 

006064 

006066 

004767 

010267 

022767 

001401 

104000 

010302 

172524 

000040 

172514 


USR 

MOV 

CMP 

BEO 

HLT 

PC, POPR 
R2i S|P 
4040, SP8W 
,*4 

JPOP THE ANSWER 
jSAVE "STACK POINTER" 
ICHECK PS (EXCEPT T BIT) 
IBRANCH if ok 
)PS NOT EQUAL TO 040 

006070 

006076 

006100 

022767 

001401 

104000 

000634 

172504 


CMP 

8E0 

HI.T 

#STACK4,SSP 

1*4 

ICWECK THE STACK POINTER (R2) 

IBRANCH IP OK 

(STACK POINTER (R2) NOT EQUAL TO iSTACK4 

006102 

006110 

006112 

022767 

001401 

104002 

043125 

172474 


CMP 

BEO 

H|.T*2 

#043125, ANSI 

.*4 

(CHECK FIRST HALF OF ANSWER 

(BRANCH IP OK 

(ANSI NOT EQUAL TO 043125 

006114 

006122 

006124 

022767 

001401 

104002 

052524 

172464 


CMP 

m 

HI.T42 

#052524, AN82 
.*4 

(CHECK SECOND HAlP OF ANSWER 
(BRANCH IP OK ■ 

IANS2 NOT EQUAL TO 050524 

006126 

006134 

006136 

122767 

001401 

104000 

000033 

172644 

CND33I 

CMP8 

BEO 

HUT 

#33, ICNT 

.♦4 

(CHECK THE TEST NUMBER 
(BRANCH IP OK 

(WRONG TESTI PC MUST HAVE FOULED UP, 

006140 

104400 




SCOPE 
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1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 
1300 
1381 


I *#*******••»*»»*#***••****#•*♦♦»*#•*******♦*•*««•»****•»•***•**••****** 

{TEST 341 FNUl. <KEHF fl,0AT|NG MULTIPLY INSTRUCTION) 

{ 0000001000000 • 0000001000000 ■ 0000001000000 

{ PS s 134, STACK POINTER s R4 

{ ♦«**#»•**•*»•***#•#**#*»********«*••*•***********•»*******•**••**•****• 


006142 

006146 

006152 

006156 

006160 

006164 

004567 

000000 

000000 

000111 

016606 

012704 

010154 

000000 

000000 

000340 

000630 


TST34I 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

MOV 

R5, PJSHR 
000000,000000 
000000,000000 
111 

TRAPER, 340 
#STACK0,R4 

{PUSH 4 WORDS ONTO R4 STACKi SET PRIORITY 

{SECOND OPERAND ON TOP 

{FIRST operand on BOTTOM 

{PROCESSOR priority UEVEL 

IPIS TRAP vector 

(SET UP STACK POINTER 

006170 

006172 

000240 

075024 




NOP 

PMUU* 

R4 

IFUOATING MUUTJPUT ON THE R4 STACK 

006174 

006200 

006204 

006212 

006214 

B04767 

010467 

022767 

001401 

104000 

010154 

172376 

000104 

172366 


JSR 

MOV 

CMP 

SCO 

hut 

PC, PPPR 

R4, SSP 

«104, SPSW 

.*4 

(POP the ANSWER 
{SAVE "STACK POINTER" 
(CHECK PS {EXCEPT T BIT) 
(BRANCH IP OK 
(PS NOT EQUAU TO 104 

006216 

006224 

006226 

022767 

001401 

104000 

000634 

172356 


CMP 

BEQ 

HIT 

#STACK4,SSP 

1*4 

(CHECK THE STACK POINTER (R4) 

{BRANCH If OK 

(STACK POINTER (R4) NOT EQUAL TO #STACK4 

006230 

106234 

006236 

005767 

001401 

104002 

172350 



TST 

BEO 

HUT*2 

ANSI 

.*4 

(CHECK FIRST HAUP OF ANSWER 

/BRANCH If OK 

(ANSI NOT EQUAU TO 000000 

006240 

106244 

006246 

005767 

001401 

104002 

172362 



TST 

t|8 

HUT*2 

ANI2 

.♦4 

/check SECOND HAuP OP ANSWER 

/BRANCH If OK 

/ANS2 NOT EQUAU TO 000000 

006250 

006256 

006260 

122767 

001401 

104000 

000034 

172522 

EN0S4I 

CMPB 

BEQ 

HUT 

434, ICNT 

,♦4 

/check the TEST NUMBER 
/branch If OK 

/WRONG TEST I PC MUST HAVE FOUUEO UP, 


006262 104400 


SCOPE 



MACYU’,620 21iAy5«72 12|07 PA6C 31 


mat 


DBKEaA.PJI 


-Jl-DBKEA-A 


KEU*" (pDP*u ns) 


PMUL TEST SECTION 


INSTRUCTION TEsiS, 


1382 

1363 

1384 

1385 

1386 

1387 
1368 
1339 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 


I •*•****»*•**#*•••*•••*»*•••*•♦****♦*••••*•*'•***•*•••****•*****•****** 

JTEST 35| TMUL (KEllP FLOATING MULTIPLY INSTRUCTION) 

I 140200100000^ • 352345|123456 = 152345 | 123456 

j PS » 350, STACK POINTER » R2 

}****«•**»*•»•***#••*•**•**********••**•**••**♦*•♦••***•♦*♦****•••••**•* 


006264 

006270 

206274 

206300 

206302 

206306 

304567 

052345 

140200 

000343 

016606 

012702 

010032 

123456 

000000 

000340 

000630 


TST35I 

USR 

.WORD 

.WORD 

.WORD 

.WORD 

MOV 

R5, PUSHR 
052345,123456 
140200,000000 
343 

TRAPER, 340 
lVSTACK0,R2 

IPUSH 4 WORDS ONTO R2 STACK, SET PRIORITY 

/SECOND OPERAND ON TOP 

/FIRST OPERAND ON BOTTOM 

IPPOCESSOR PRIORITY LEVEL 

jFlS TRAP VECTOR 

/SET UP STACK pointer 

206312 

206314 

300240 

075022 




NOP 

FMUL* 

R2 

/floating multiply on the R2 STACK 

206316 

206322 

206326 

206334 

206336 

004767 

040267 

022767 

001401 

104000 

010032 

172254 

000350 

172244 


JSR 

MOV 

CMP 

BEQ 

HUT 

PC, POPR 

R2, SSP 

#350, SPSW 

,*4 

iPOP the answer 
/save "STACK POINTER" 
/CHECK PS (EXCEPT T BIT) 
ISRANCH IF OK 
/PS not equal to 550 

206340 

206346 

206350 

022767 

001401 

104000 

000634 

172234 


CMP 

BEQ 

HLT 

#STACK4,$SP 

,*4 

/Check the stack pointer (R2) 

/branch IF OK 

/stack pointer <R2) not equal to PSTACK4 

206352 

206360 

206362 

022767 

001401 

104002 

152345 

172224 


CMP 

BE8 

HLT*2 

#152345, ANSI 

.*4 

/check first half of answer 

/BRANCH IF OK 

/ANSI NOT IQU4U 70 152345 

206364 

206372 

206374 

022767 

001401 

104002 

125456 

172214 


CMP 

8E0 

HL,T*2 

#123456. ANS2 
,** 

/CHECK SECOND HAlF QF ANSWER 

/BRANCH IF OK 

/ANS2 not equal to 123456 

206376 

206404 

206406 

122767 

001401 

104000 

000035 

172374 

END35I 

CMPB 

BEQ 

HUT 

#35, ICNT 

t 

/CHECK THE test NUMBER 
IBRANCH IF OK 

/WRONG TEST! PC MUST HAVE FOULEO UP, 

206410 

104400 




SCOPE 
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DBKEAA.Pll FMUL TEST SECTION 


1423 

1424 

1425 
14 26 
1427 

1426 
1429 


1439 

1440 

1441 

1442 

1443 

1444 


206444 

206450 

206454 

206462 

206464 


004767 

010567 

022767 

001401 

104000 


007704 

172126 

000104 


ITEST 361 FMUL (KEUP FLOATING MULTIPLY INSTRUCTION) 

I 100125|052525 • 135753,024642 » 000000,000000 

f PS s 104, STACK POINTER * R5 

) * 0 * 0 . «*»**•» * 6 *».**** *♦•*#**#•**«»««*******»*****«•**#•**»• *•*••*•*»••* 


1430 

206412 

004567 

307704 

TST36I JSR 

1431 

206416 

135753 

024642 

.WORD 

1432 

206422 

100125 

052525 

.WORD 

1433 

206426 

000117 


.WORD 

1434 

206430 

016606 

000340 

.WORD 

1435 

206434 

012705 

000630 

MOV 

1436 

1437 

206440 

000240 


NOP 

1438 

206442 

075025 


FMUL* 


172116 


JSR 

MQV 

CMP 

BEQ 

HLT 


R5, PUSHR 
135753,024642 
100125,052525 
ilT 

TRAPER, 340 
#STACK0,R5 


R5 

PCi 

R5i 

#lt>4, 

.*4 


POPR 

S§P 

SPSW 


jPUSH 4 WORDS ONTO R5 STACKi SET PRIORITY 

jSECONO OPERAND ON TOP 

iPIRST OPERAND ON BOTTOM 

IPROCESSOR PRIORITY LEVEL 

IFIS TRAP VECTOR 

ISET UP STACK POINTER 


I'FlOATInG multiply on THE R5 STACK 


iPOP the answer 
ISAVE "STACK POINTER" 
JCHECK PS lEXCIPT T BIT) 
IBRANCH IF OK 
IPS not equal TO 104 


1445 



1446 

206466 

022787 

1447 

206474 

001401 

1448 

206476 

104000 

1449 



1450 

206500 

005767 

1451 

206504 

001401 

1452 

206506 

104002 

1455 



1454 

208510 

005787 

1455 

206514 

001401 

1456 

208516 

104002 

1457 



1458 

208520 

122787 

1459 

206528 

001401 

1460 

208530 

104000 

1461 

1462 

208532 

104400 

1463 




000634 172106 

172100 

172072 

000036 172252 EN036I 


CMP 

#STACK4,SSP 

SCO 

.*< 

HLT 


TST 

ANSI 

BCQ 

HLT*2 

1*8 

TST 

ANS2 

810 

HLT*2 


cmpb 

«38, ICnT 

BEO 

.*4 

HLT 


SCOPE 



ICHECK THE STACK POINTER (R5> 
i'BRANCH if OK 

/STACK POINTER (R5) NOT COUAL TO #STACK4 

ICMECK FIRST half OF ANSWER 

/BRANCH IF OK 

/ANSI not SQUAL to 000000 

/CRICK SECOND hale OF ANSWER 

/BRANCH IF OK 

IAN52 NOT lOUAW TO 000000 

/chick the test NUMBER 
/BRANCH IF OK 

/WRONG TEST I PC MUST HAVE FOULED UP , 



MAINDEC-il^DBKE 

DBKEAA.PU 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 206534 

1472 206540 

1473 206544 

1474 206550 

1475 206552 

1476 206556 

1477 

1478 206562 

1479 206564 

1480 

1481 206566 

1482 206572 

1483 206576 

1484 206604 

1485 206606 

1486 

1487 206610 

1488 206616 

1489 206620 

1490 

1491 206622 

1492 206626 

1493 206630 

1494 

1495 206632 

1496 206636 

1497 206640 

1498 

1499 206642 

1500 206650 

1501 206652 

1502 

1503 206654 

1504 
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FMUL test section 


1 ****»»*«#•##*#•*******•**••••»*#••••**••**«*****••*••*•••*•****•****••• 

ITEST 371 FMUL (KEllF FLOATING MULTIPLY INSTRUCTION) 

I I6I6I61I6I6I6 * 000052,125252 * 000000,000000 

I PS » 234, STACK POINTER * R3 

j ««««#***•**«*»*•*••*«»»••*••**«***♦****•*•*«****••*******•*•••***«**•»* 


004567 

000052 

161616 

000217 

016606 

012703 

007562 

125252 

161616 

000340 

000630 


TST37J 

JSR 

.WORD 

.WORD 

,WORO 

.WORD 

MOV 

R5, PgSHR 
000052,125252 
161616,161616 
217 

TRAPER, 360 
#5TaCK0,R3 

IPUSH 4 WORDS ONTO R3 STACK, SET PRIORITY 

ISCCONO OPERAND ON TOP 

I'flRST OPERAND ON BOTTOM 

I'PROCESSOR priority LEVEL 

I'FIS TRAP VECTOR 

ISIT UR STACK POINTER 

000240 

075023 




NOP 

FMUL* 

R3 

iPLOATInG multiply ON THE R3 STACK 

004767 

010367 

022767 

001401 

104000 

007562 

172004 

000204 

171774 


J5R 

MOV 

CMP 

BEQ 

HLT 

PC, POPR 

R3, SSP 

#204, SPSW 

, 4i4 

)>OP the ANSWER 
ISAVE ’’STACK POINTER” 
ICHECK PS (EXCEPT T BIT) 
lIRANCH If OK 
|P8 NOT EQUAL TO 204 

022767 

001401 

104000 

000634 

171764 


CMP 

BEQ 

HLT 

iSTACK4,$8P 

,*4 

(CHECK THE STACK POINTER (R3) 

IBRANCH If OK 

(STACK POINTER (R3) NOT EQUAL TO iSTACK4 

005767 

001401 

104002 

171756 



T$T 

BEQ 

HLT*2 

ANSI 

.46 

(CHECK fl((3T HALF OF ANSWER 

(BRANCH If OK 

UnSI not EQUAL TO 000800 

005767 

001401 

104002 

171750 



TST 

BEQ 

HLT*2 

ANS2 

.46 

(CHECK SECOND half QP ANSWER 

(BRANCH If OK 

(ANS2 NQT EQUAL TO 000000 

122767 

001401 

104000 

000037 

172130 

END37I 

CMPB 

BEQ 

HLT 

# 37 , I5NT 

.46 

(CHECK THE TEST NUMBER 
(BRANCH If OK 

(WRONG TEST! PC MUST HAVE FOULED UP, 

104400 




SCOPE 
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OBKEAA.Pll FMUl, TEST SECTION 


1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 
1518 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 
152B 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 


(TEST 401 FMUl (KEllF FLOATING MULTIPLY INSTRUCTION) 

I 176452|125252 • 041500,000000 * 177777,177777 

I PS = 350, STACK POINTER » SP 


006656 

006662 

006666 

006672 

006674 

004567 

041500 

176452 

000357 

016606 

007262 

000000 

125252 

000340 


TST40I 

JSR 

.WORD 

.WORD 

,WORO 

.WORD 

R5i 

041500, 

176452, 

357 

TRAPER, 

PUSHS 

000000 

125252 

340 

(PUSH 4 WORDS ONTO STACK, SET PRIORITY 
j'SeCONO OPERAND ON TOP 
IFIRST OPERAND ON BOTTOM 

(PROCESSOR priority uevel 

(PIS TRAP VECTOR 

006700 

006702 

000240 

075026 




NOP 

FMUL* 

SP 


IFUOATInO multiply ON THE STACK 

006704 

006710 

006714 

006716 

006722 

006724 

004767 

022706 

001404 

012706 

104000 

000417 

007274 

000500 

000500 



JSR 

CMP 

BEQ 

MOV 

MLT 

BR 

PCi 

4500, 

TSA40 

#500, 

END40 

POPS 

SP 

SP 

(POP the answer 

(CHECK THE STACK POINTER 
(BRANCH IP OK 
(RESTORE STACK POINTER 
(STACK POINTER POUUEO UP 
(SKIP REST OF TEST 

006726 

006734 

006736 

022767 

001401 

104000 

000350 

171644 

TSA40I 

CMP 

BEO 

HUT 

#350, 
• M 

SPSW 

(CHECK PS (EXCEPT T BIT) 

(BRANCH IF OK 

(PS NOT EQUAL TO 350 

006740 

006746 

006750 

022767 

001401 

104002 

177777 

171636 


CMP 

BEQ 

HLT*2 

#177777 

.♦4 

,ANS1 

(CHECK FIRST HALF OF ANSWER 

(BRANCH IP OK 

(ANSI NOT EQUAU TO 177777 

006752 

006760 

006762 

022767 

001401 

104002 

177777 

171626 


CMP 

BEQ 

HLT+2 

4(177777 

,** 

• ANS2 

(CHECK SECONO half OP ANSWER 

(BRANCH IP OK 

(ANS2 NOT EOUAU TO 177777 

006764 

006772 

006774 

122767 

001401 

104000 

000040 

172006 

ENO40I 

cmpb 

BEQ 

HUT 

#40, 

,** 

ICNT 

(CHECK THE TEST NyMBER 
(BRANCH IP OK 

(WRONG TE8TI PC MUST HAVE POUUEO UP, 

006776 

104400 




SCOPE 





I 









- - 



n 








MAINDEt 

-ll-DBKEA-A 

KEllE 

{PDP-11 1 

•IS> INSTRUCTION 

TESTS, 

MACYll, 

620 214AUC-72 12107 PACE 35 

DBKEAA. 

Pll 

0MUL TEST SECTION 





1546 









1547 






1548 





ITeST 411 

FMUU (KEHr ruOAtlNG MUUTIPUV INSTRUCTION) 

1549 





1 076452 

,125252 • 

041530, 

000001 »=> OVERFLOW 

1550 





1 PS(ONl 

STACK) s 

132, 

STACK POINTER » SP 

1551 






1552 

1553 

007000 

304567 

307140 


TST41I JSR 

R5, 

pgsHS 

jPUSH 4 WORDS ONTO STACK, SET PRIORITY 

1554 

007004 

041500 

000001 


.WORD 

041500, 

000001 

ISECOND OPERAND ON TOP 

1555 

007010 

076452 

125252 


.WORD 

076452, 

125252 

IFIRST operand on BOTTOM 

1556 

007014 

000105 



.WORD 

105 


IRROCESSOR priority UEVEU 

1557 

007016 

007042 

000357 


,WORO 

ISR41, 

357 

IFIS TRAP VECTOR 

1558 









1559 

007022 

000240 



NOP 




1560 

007024 

075026 



FMUL* 

SP 


irUOATiNC MUUTIPUV ON THE STACK 

1561 

1562 

007026 

004767 

007152 


RTA41I JSR 

X7, 

POPS 

IPOP THE RANSWER** 

1563 

007032 

104002 



HLT*2 



iFIS TRAP DIDN'T OCCUREJ 

1564 

007034 

012706 

000500 


HOV 

4500, 

SP 

IRESTORE THE StACK POINTER 

1565 

007040 

000454 



8R 

EN041 



1566 

1567 

007042 

004767 

007172 


ISR41! jSR 

X7, 

POPES 

)POP AUU data off THE STACK 

1568 

007046 

022706 

000500 


CMP 

«500, 

SP 

iCliECK THE STACK POINTER 

1569 

007052 

001404 



8E0 

|$A41 


IBRANCH ir OK 

1570 

007054 

012706 

000500 


MOV 

4500, 

SP 

IRESTORE THE STACK POINTER 

1571 

007060 

104000 



hut 



iSfACK POINTER FOUUEO UP 

1572 

007062 

000443 



BR 

EN041 


ISKIP RES? or TEST 

1573 

1574 

007064 

022767 

000357 

171506 

ISA41I CMP 

•597, 

SPSW 

ICHECk PS AFTER FIS TRAP 

1575 

007072 

001401 



beq 

,44 


I0RANCH IF OK 

1576 

007074 

104000 



HUT 



I’PS AFTeK FIS TRAP NOT EOUAU TO 357 

1577 

1578 

007076 

022767 

007026 

174500 

CMP 

4RTA41, 

ANSI 

ICHECK FIS TRAP RETURN ADDRESS 

1579 

007104 

001401 



BCQ 

,*4 


IBRANCH IF OK 

1580 

007106 

104001 



HUT*1 



IFIS TRAP AT WRONG ADDRESS 

1581 

1582 

007110 

022767 

000192 

171470 

CMP 

4182, 

ANS2 

ICHECK PS BEFORE FIS TRAP 

1583 

007116 

001401 



BEO 

.44 


IBRANCH IF OK 

1584 

4 K a K 

007120 

104002 



HUT42 



IPS AT FIS TRAP TIME NOT 102 

1505 

1586 

007122 

022767 

041500 

174460 

CMP 

#041500 

• ANS3 

ICHECK data from the stack '' 

1587 

007130 

001401 



BEQ 

,44 


IBRANCH IF OK 

1588 

007132 

104004 



HUT*4 



lOATA ON STACK (041500) CHANGED 

1589 

1590 

007134 

022767 

000001 

174450 

CMP 

4000001 

• ANS4 

ICHECK DATA FROM STACK 

1591 

007142 

001401 



BEQ 

,44 


IBRANCH IF OK 

1592 

007144 

104004 



HUT+4 



idat* on stack (000001) changed 

1593 

1594 

007146 

022767 

076452 

171440 

CMP 

4076452 

,ANS5 

ICHECK DATA FROM STACK 

^ 1595 

007154 

001401 



BEO 

.44 


IBRANCH IF OK 

1596 

007156 

104006 



HUT+6 



IOATA on stack (076452) CHANGED 

1597 









1598 

007160 

022767 

125252 

171430 

CMP 

4125252 

,ANS6 

ICHECK DATA FROM STACK 

1599 

007166 

001401 



BEO 

,♦4 


IBRANCH IF OK 
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1600 

207170 

104006 




H(.T*6 


jOATA on STACK (125252) CHANGED 

1601 









1602 

707172 

122767 

000041 

171600 

EN041I 

CMPB 

#41, ICNT 

ICNECK THE TEST NUMBER 

1603 

707200 

001401 




beq 

,*4 

iSRANCW IF OK 

1604 

707202 

104000 




HUT 


IWRONG test: pc must have fouled UP, 

1605 









1606 

707204 

104400 




SCOPE 



1607 









1608 









1609 





1 « » « « # 




1610 





itest 

421 

FMUL (KEllP PUOATlNG MULTIPLY INSTRUCTION) 

1611 






424252, 

125252 • 114100 

1000001 ^ 0002001000000 

1612 





1 

PS » 200, STACK 

POINTER » Rl 

1613 





I****. 




1614 

1615 

707206 

004567 

007110 


TST42I 

JSR 

R5, PUSHR 

IPWSH 4 WORDS ONTO Rl STACK, SET PRIORIT' 

1616 

007212 

U4100 

000001 



.WORD 

114100,000001 

ISECOND OPERAND ON TOP 

1617 

707216 

124252 

125252 



.WORD 

124252,125252 

IFIRST OPERAND ON BOTTOM 

1618 

707222 

000200 




.WORD 

200 

/PROCESSOR PRIORITY LEVEL 

1619 

707224 

016606 

000340 



.WORD 

TRAPER, 340 

IFIS TRAP VECTOR 

1620 

707230 

012701 

000630 



MOV 

#STACK0,R1 

iSET UP stack pointer 

1621 









1622 

707234 

000240 




NOP 



1623 

707236 

075021 




fmuu* 

Rl 

iPLOATInC multiply on the Rl STACK 

1624 

1625 

707240 

004767 

007110 



JSR 

PC, P0PR 

IPOP THE ANSWER 

1626 

707244 

010167 

171332 



MOV 

Rl, S5P 

ISAVE "STACK POINTER" 

1627 

707250 

022767 

000200 

174322 


CMP 

#200, 5PSW 

I'CHECK PS (EKCIPT T BIT) 

1628 

707256 

001401 




BED 

,44 

/BRANCH IP OK 

1629 

707260 

104000 




Ht,T 


IPS NOT equal to 200 

1630 

1631 

707262 

022767 

000634 

171312 


cmf 

i»STACK4,fSP 

/CHECK THE STACK POINTER (Rl) 

1632 

707270 

001401 




Bid 

.*4 

IBRANCH IP OK 

1633 

707272 

104000 




HUT 


/stack pointer (Rl) NOT EQUAL Tfl #STACK4 

1634 

1635 

707274 

022767 

000200 

171302 


CMP 

#000200, ANSI 

jCHECK FIRST half OF ANSWER 

1636 

707302 

001401 




BEO 

,*4 

/BRANCH IF OK 

1637 

707304 

104002 




HI.T42 


lANSl NOT EQUAL TO 000200 

1638 

1639 

707306 

005767 

171274 



TST 

ANS2 

/CHECK SECOND HAlF QF ANSWER 

1640 

707312 

001401 




BEO 

, *4 

/BRANCH IP OK 

1641 

707314 

104002 




H|,T*2 


JANS2 NOT EQUAL TO 000000 

1642 

1643 

707316 

122767 

000042 

171454 

END42I 

CMPB 

#42, ICNT 

1 check THE TEST NUMBER 

1644 

707324 

001401 




BEQ 

,*4 

iBRANCH IP OK 

1645 

707326 

104000 




NUT 


iWRONC TEST! PC MUST HAVE FOULED UP, 

1646 









1647 

707330 

104400 




SCOPE 



1648 












MAINDE't'-ll-DBKEA-A KEUF (PoP-U FIS) INSTRUCTION TESTS, 

OBKEAA.Pll FMUl TEST SECTION 


MACYU',620 2liAU5»72 12|07 PACE 3" 


1649 

1650 

1651 


•*»a***«**#****»*******»#*****»**««****®******************************** 

Test 431 fmuu (kehf floating multiput instruction) 

024252|125252 * 114100 | 000000 =*> UNDERFLOW 


1653 





1 

PSfON 

STACK) * 312, 

STACK POINTER » R0 

1654 






1655 

1656 

707332 

304567 

006764 


TST43I 

JSR 

R5, PUSHR 

JPUSH 4 WORDS ONTO R0 STACK* SET PRIORITT 

1657 

707336 

114130 

000000 



.WORD 

114100,000000 

ISECONO OPERAND ON TOP 

1658 

707342 

024252 

125252 



.WORD 

024252|125252 

IFIRST operand on BOTTOM 

1659 

707346 

000305 




.WORD 

305 

IPBOCESSOR PRIORITY LEVEL 

1660 

707350 

007400 

000057 



.WORD 

ISB43, 057 

»ns trap VECTOR 

1661 

707354 

012700 

000630 



HOV 

«STaCK0|R0 

ISET UP R0 AS STACK POINTER 

1662 









1663 

707360 

300240 




NQP 



1664 

4 JL il C 

707362 

075020 




FMUU+ 

R0 

JFUOATINO MUlTIPLT ON THE R0 STACK 

1665 

1666 

707364 

004767 

006764 


RTA43I 

JSR 

X7| POPR 

IPOP the "ANSWER" 

1667 

707370 

010067 

171206 



MOV 

R0, SSP 

iSAVE STACK POINTER <R0) 

1668 

707374 

104002 




HI.T+2 


IFIS TRAP DIDN'T OCCUREI 

1669 

707376 

000453 




SR 

EN043 


1670 

1671 

707400 

304767 

007002 


ISR43I 

JSR 

X7, PQPER 

IPOP all data OFF THE STACKS 

1672 

707404 

010067 

171172 



MOV 

R0, SSP 

iSAVE STACK POINTER <R0) 

1673 

707410 

022767 

000057 

171162 


CMP 

#057, SPSW 

ICHECK PS AFTER FIS TRAP 

1674 

707416 

001401 




8E0 

1*4 

IBRANCH if* ok 

1675 

707420 

104000 




HUT 


IPS AFTER FIS TRAP NOT EQUAL TO 057 

1676 

1677 

707422 

022767 

00 0630 

171152 


CMP 

#STACK0iS5P 

iCHECK THE STACK POINTER (R0) 

1678 

707430 

001401 




BEQ 

,*4 

iBRANCH If OK 

1679 

707432 

104000 




HUT 


iSTACK POINTER (R0) NOT EQUAL TO iSTACK0 

1680 

1681 

707434 

022767 

007364 

171142 


CMP 

«RTA43, ansi 

ICHECK FIS trap return ADDRESS 

1682 

707442 

001401 




BEQ 

• *4 

IBRANCH If OK 

1683 

707444 

104001 




HUT*1 


I'ffS trap at wrong ADDRESS 

16o4 

1685 

707446 

022767 

000312 

171132 


CMP 

#312, ANS2 

ICHECK pS BEfORE fIS TRAP 

1686 

707454 

001401 




BEQ 

,*4 

I0RANCH IF OK 

1687 

707456 

104002 




HUT*2 


IPS AT fIS TRAP TIME NOT 312 

1688 

1689 

707460 

022767 

114100 

171122 


CMP 

#144100, ANS3 

ICHECK DATA FROM THE STACK 

1690 

707466 

001401 




8EQ 

,*4 

I'BRANCH If OK 

1691 

707470 

104004 




HI.T + 4 


lOATA ON STACK (114100) CHANGED 

1692 









1693 

707472 

005767 

171U4 



TST 

ANS4 

ICHECK DATA FROM STACK 

1694 

707476 

001401 




BEQ 

,♦4 

IBRANCH IF OK 

1695 

707500 

104004 




HUT+4 


IDATA ON STACK (000000) CHANGED 

1696 









1697 

707502 

022767 

024252 

171104 


CMP 

#024252, AN85 

ICHECK DATA FROM STACK 

1698 

707510 

301401 




BEQ 

.*4 

I'BRANCH IF OK 

1699 

707512 

104006 




HUT+6 


IOATA On stack (024252) CHANGED 

1700 









1701 

707514 

022767 

125252 

171074 


CMP 

#125252, ANS6 

ICHECK DATA FROM STACK 

1702 

707522 

001401 




BEQ 

1*4 

iBRANCH IF OK 
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1703 

1704 

1705 
1706. 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 
-1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 


007524 104006 

707526 122767 

707534 001401 

707536 104000 

707540 104400 


Hl.T+6 

000043 171244 END431 CMPB 

SEQ 

Ht.T 

SCOPE 


#43, 

1*4 


JOATA ON STACK (125252) CHANISEO 

ICNT (CHECK the TEST NUMBER 
(BRANCH If OK 

(WRONG TEST! PC MUST HAVE FOUUED UP, 


(**•«#****•*»»•♦*#**»*•*«»«**•***»********•*••**•••*•**•*•******•••*•*•* 

(TEST 441 FDIV (KEllF FU8ATING DIVIDE INSTRUCTION) 

{ 125252,125252 / 140200,000000 « 025252,125252 

( PS * 200, STACK POINTER ■ SP 

I •*«**••*♦*•*#*****#**»**•**#•******••*********•••*»•***♦•*•••*•******** 


707542 

707546 

707552 

707556 

707560 

004567 

140200 

125252 

000217 

016606 

006376 

000000 

125252 

000340 


TST44I 

JSR 

,WORO 

,WORO 

(WORD 

.WORD 

RS, 

1402001 

125252, 

217 

TRAPER, 

PUSHS 

000000 

125252 

340 

(PUSH 4 WORDS ONTO STACK, SET PRIORITY 
ISECOND OPIRANP ON TOP 
(FIRST operand on BOTTOM 
(PROCESSOR priority LEVEL 
IFIS TRAP VECTOR 

707564 

707566 

000240 

075036 




NOP 

FDIV* 

SP 


(FLoatinc divide on the stack 

707570 

707574 

707600 

707602 

707606 

707610 

004767 

022706 

001404 

012706 

104000 

000417 

006410 

000500 

000500 



JSR 

CMP 

BED 

MOV 

H|,T 

BR 

P5i 

»500, 

TSA44 

#500, 

EN044 

POPS 

SP 

SP 

(POP the answer 
(CHECK THE STACK POINTER 
(BRANCH IF OK 
(RESTORE STACK POINTER 
(STACK POINTER FOULED UP 
(SKIP PEST or TEST 

707612 

707620 

707622 

022767 

001401 

104000 

000200 

170760 

TSA44I 

CMP 

BEQ 

HUT 

#200, 
, *4 

SPSW 

(CHECK PS (EXCEPT T BIT) 

(BRANCH If OK 

(PS NOT EQUAL TO 200 

707624 

707632 

707634 

022767 

001401 

104002 

025252 

170752 


CMP 

BEQ 

HUT*2 

#025252 

I *4 

iANSI 

(CHECK first half OF ANSWER 

(BRANCH If OK 

(ANSI NOT equal to 025252 

707636 

707644 

707646 

022767 

001401 

104002 

125252 

170742 


cmp 

BEQ 

Hl.T+2 

#125252 

,#4 

,ANS2 

(CHECK SECOND HAlF OF ANSWER 

(BRANCH IF OK 

(ANS2 NOT EQUAL TO 125252 

707650 

707656 

707660 

122767 

001401 

104000 

000044 

171122 

END44I 

CMPB 

beq 

HUT 

#44, 

• *4 

ICNT 

(CHECK THE TEST NUMBER 
(BRANCH IF OK 

(WRONG TEST! PC MUST HAVE FOULED UP, 

707662 

104400 




SCOPE 
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1752 







1753 





1 «»»«««# ft ««««*#»«««*«««*««•««• 

1754 





ITeST 451 

FDIV (KEllF FL 

1755 





I 252525 

,052525 / 100125 

1756 





1 PSCON 

STACK) s 053, 

1757 






1758 







1759 

Z07664 

004567 

006432 


TST45I JSR 

R5, PUSHR 

1760 

707670 

100125 

125252 


,WORO 

100125,125252 

1761 

707674 

052525 

052525 


(WORD 

052525,052525 

1762 

707700 

000047 



.WORD 

047 

1763 

707702 

007732 

000113 


.WORD 

ISR45, 113 

1764 

707706 

012705 

000630 


MOV 

#STaCK0,R5 

1765 







1766 

707712 

000240 



NOP 


1767 

707714 

075035 



FOIV* 

R5 

1766 







1769 

707716 

004767 

006432 


R7A45! JSR 

X7, POPR 

1770 

707722 

010567 

170654 


MOV 

R5, SSP 

1771 

707726 

104002 



HLT*2 


1772 

707730 

000454 



BR 

ENP45 

1773 







1774 

707732 

004767 

006450 


ISR45I JSR 

X7, POPER 

1775 

707736 

010567 

170640 


MOV 

R5, SSP 

1776 

707742 

022767 

000113 

170630 

CMP 

#113, SPSW 

1777 

707750 

001401 



BCD 


1776 

4 "1 "T O 

707752 

104000 



hlt 


1779 

1780 

707754 

022767 

000630 

170620 

cmp 

#STACK0,SSP 

1781 

707762 

001401 



BEQ 

,** 

1782 

707764 

104000 



HLT 


1783 

1784 

707766 

022767 

007716 

170610 

CMP 

PRTA45, ANSI 

1785 

707774 

001401 



BEQ 

,*4 

178$ 

707776 

104001 



hlt*i 


1787 







1788 

710000 

022767 

000053 

170600 

CMP 

#053, ANS2 

1789 

710006 

001401 



BEQ 

, *4 

1790 

4 *7 O R 

710010 

104002 



HLT*2 


l/yi 

1792 

710012 

022767 

100125 

170570 

CMP 

#100125, ANS3 

1793 

710020 

001401 



BEQ 


1794 

710022 

104004 



HLT*4 


1795 







1796 

710024 

022767 

125252 

170560 

CMP 

#125252, ANS4 

1797 

710032 

001401 



BEQ 

1*4 

1798 

710034 

104004 



HLTa-4 


1799 

1800 

710036 

022767 

052525 

170550 

CMP 

#052525, ANS5 

1801 

710044 

001401 



BEQ 

.*4 

1802 

710046 

104006 



HLT+6 


1803 







1804 

710050 

022767 

052525 

170540 

CMP 

#052525, ANS6 

1805 

710056 

001401 



BED 

1 *4 


STACK POINTER » R5 


POSH 4 WORDS ONTO R5 STACK, SET PRIORITY 
SECOND OPERAND ON TOP 

riRST operand on bottom 

PROCCSSOR priority LEVEL 

ns TRAP VECTOR 

SET UP R5 AS STACK POINTER 


floating divide on the R5 STACk 

POP the "ANSWER" 

SAVE STACK POINTER (R5> 

FIS TRAP DIDN'T OCCUREI 


POP ALL data off the STACKS 
save stack pointer (R5) 

CHECK PS AFTER FIS TRAP 

branch if ok 

M after FIS TRAP NOT EQUAL TO U3 

CHECK THE STACK POINTER (R5> 

BRANCH If ok 

stack POINTER (R5) NOT EQUAL TO PSTACK0 
CHECK FIS TRAP RETURN ADDRESS 

branch if ok 

FIS TRAP AT WRONG ADDRESS 

CHECK PS BEFORE FIS TRAP 
BRANCH IF OK 

PS AT FIS TRAP TIME NOT 053 

CHECK DATA FROM THE STACK 
BRANCH if OK 

DATA ON STACK (100125) CHANGED 

CHECK DATA FROM STACK 
BRANCH IF OK 

DATA ON STACK (125252) CHANGED 

CHECK DATA FROM STACK 
BRANCH IF OK 

DATA ON stack (052525) CHANGED 

CHECK DATA from STACK 
BRANCH IP OK 
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lOATA ON stack (052525) CHANGED 


1807 

1808 

'13062 

122767 

1809 

313070 

301401 

1810 

713072 

104000 

1811 

1812 

713074 

104400 

1613 



1814 



1815 

1816 



1817 



1818 



1819 

1820 



1821 

710076 

004567 

1822 

710102 

127652 

1823 

710106 

167452 

1624 

710112 

000111 

1825 

710114 

016606 

1826 

710120 

012700 

1827 



1628 

710124 

000240 

1829 

710126 

075030 

1630 



1631 

710130 

004767 

1832 

710134 

010067 

1833 

710140 

022767 

1634 

710146 

001401 

1835 

710150 

104000 

1836 



1837 

710152 

022767 

1838 

710160 

001401 

1839 

1840 

710162 

104000 

1841 

710164 

022767 

1842 

710172 

001401 

1643 

710174 

104002 

1844 

1845 

710176 

022767 

1846 

710204 

001401 

1847 

710206 

104002 

1848 



1849 

710210 

122767 

1850 

710216 

001401 

1851 

7 10220 

104000 

1852 

1653 

710222 

104400 

1854 




000045 170710 


006220 

125252 

125251 

000340 

000630 


006220 

170442 

000100 170432 

000634 170422 

077777 170412 

177776 170402 

000046 170562 


END45I CMPB 445, ICNT (CHECK THE TEST NUMBER 
8E0 ,*4 (BRANCH IF OK 

H1.T (WRONG TEST) PC MUST HAVE FOUUD UPt 

SCOPE 


( #*»«««•»•*♦****»«*•**«***»*•♦*«•*«••*•***•**••••*••***•••»•***•**•***** 

(TEST 461 FOIV (KEllF FLOATING DIVIDE INSTRUCTION) 

( 167452,1252517 127652,125252 . 077777,177776 

( PS a 100, stack pointer • R0 


I 


TST46I 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

MOV 

R5, PUSHR 
127652,125252 
167452,125251 
111 

TRAPER, 340 
«STACK0,R0 

(PUSH 4 WQROS ONTO R0 STACK, SET 
(SECOND OPERAND ON TOP 
(FIRST OPERAND ON BOTTOM 
(PROCESSOR PRIORITY LEVEL 
IFIS TRAP VECTOR 
(SET UP STACK POINTER 

PRIORITY 


NOP 

FOIV* 

R0 

iFLOATInC divide on THE R0 StACK 



JSR 

MOV 

CMP 

BEQ 

HLT 

PC, POPR 
R0, SSP 
#100, SPSW 
,*4 

(POP the answer 

(SAVE "STACK POINTER" 
(CHECK PS (EXCEPT T BIT) 
(BRANCH IF OK 
(PS NOT EOWAL TO 100 



CMP 

SCO 

HLT 

#STACK4,$SP 

,*4 

(CHECK THE STACK POINTER (R0) 
(BRANCH IF OK 

(STACK POINTER (RB) NOT EQUAL TO 

#STACK4 


CMP 

BEQ 

H|,T*2 

#077777, ANSI 
1 *4 

(CHECK FIRST HALF OF ANSWER 

(BRANCH IF OK 

(ANSI NOT EQUAI, TO 077777 



CMP 

BEQ 

HI.T+2 

#177776, ANS2 

,*4 

(CHECK SECOND HAI.F OF ANSWER 

(BRANCH IF OK 

(ANS2 NOT equal to 177776 


END46I 

CMPB 

BEQ 

HUT 

#46, ICNT 

,*4 

(CHECK THE TEST NUMBER 
(BRANCH IF OK 

(WRONG TESTS PC MUST HAVE FOULED 

UP. 


SCOPE 






% 


I 


o 
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1855 

1856 

1857 

1858 

1859 

1860 
1661 
1862 

1863 

1864 

1865 

1866 
1867 
1668 

1869 

1870 

1871 
1672 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 
1861 
1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 


I ••«»»» *»«o*****«******##****«***»#****»***»»»***»*»«**********»********* 

JTEST 471 FOIV (KEUF FLOATIHC DIVIDE INSTRUCTION) 

; 067452|125252 / 127652i 125252 s=> OVERFLOW 

i PSION STACK) =242, STACK POINTER = R4 

I #«»»»»«•»**•**»*#*•»•♦•••#*•**•*•**•*•***•******•*•♦♦*•••****••********* 


f 10224 
710230 
710234 
710240 
710242 
710246 

004567 

127652 

067452 

000242 

010272 

012704 

006072 

125252 

125252 

000357 

000630 


TST47I 

USR 

.WORD 

.WORD 

.WORD 

.WORD 

MOV 

R5| PUSHR 

127652.125252 

067452.125252 
242 

ISR47, 357 
PSTaCK0,R4 

IPUSH 4 WORDS ONTO R4 STACK, SET 

jSCCONO OPERAND ON TOP 

jFlRST operand on bottom 

IPROCESSOR PRIORITY LEVEL 

IFIS TRAP VECTOR 

iSCT UP R4 AS STACK POINTER 

PRIORITY 

710252 

710254 

000240 

075034 




NOP 

FDIV* 

R4 

iPLOATInG divide ON THE R4 STACK 


710256 

710262 

710266 

710270 

004767 

010467 

104002 

000454 

006072 

170314 


RTA47I 

USR 

MOV 

HLT+2 

BR 

X7, PQPR 

R4, SSP 

ENB47 

IPOP the "ANSWER" 
iSAVE STACK POINTER <R4) 
»FIS TRAP DIDN'T OCCUREI 


710272 

710276 

710302 

710310 

710312 

004767 

010467 

022767 

001401 

104000 

006110 

170300 

000357 

170270 

ISR47I 

JSR 

MOV 

CMP 

6E0 

hlt 

X7, POPER 

R4, SiP 

#357, SPSW 

,*4 

iPOP ALL data off THE STACKS 
SSAVE STACK POINTER (R4) 

ICHECK PS AFTER FIS TRAP 
IBRANCH IF OK 

IPS after FIS TRAP NOT EQUAL TO 

357 

710314 

710322 

710324 

022767 

001401 

104000 

000630 

170260 


CmP 

BEQ 

HLT 

#5TACK0,SfP 

,64 

iCHECK THE STACK POINTER (R4) 
iBRANCH IP OK 

ISTACK POINTER <R4> NOT EQUAL TO 

#STACK0 

710326 

710334 

710336 

022767 

001401 

104001 

010256 

170250 


CMP 

BEQ 

HLT+1 

#RTA47, ANSI 
,*4 

ICHECK FIS TRAP RETURN ADDRESS 
IBRANCH IF OK 

iFlS TRAP AT WRONG ADDRESS 


710340 

710346 

710350 

022767 

001401 

104002 

000242 

170240 


CmP 

BEQ 

HLT*2 

#242, ANS2 

.** 

ICHECK pS BEFORE FtS TRAP 
IBRANCH IF OK 

I'PS AT FIS TRAP TIME NOT 242- ■< 

- - 


710352 

710360 

710362 

022767 

001401 

104004 

127652 

170230 


CMP 

BEQ 

HLT+4 

#127652, ANS3 

ICHECK DATA FROM THE STACK ^ -w 
iBRANCH IF: OW 

iOATA ON stack (127652) CHANGED 


710364 

717372 

710374 

022767 

001401 

104004 

125252 

170220 


CMP 

BEQ 

HLT+4 

#125252, ANS4 
,*4 

ICHECK DATA FROM STACK 
iBRANCH if ok 

IDATA ON STACK (125252) CHANGED 


'’17 376 
710474 
710476 

022767 

001401 

104006 

067452 

170210 


CMP 

BEQ 

HLT*6 

#067452, ANS5 
,*4 

iCHECK DATA FROM STACK 
I'BRANCH if ok 

iDATa on stack (067452) CHANGED 


710410 

710416 

T22767 

001401 

125252 

170200 


cmp 

BEQ 

#125252, ANS6 

,*4 

ICHECK DATA FROM STACK 
iBRANCH if ok 
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1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 


710420 

104036 




HLT^6 


JOATA ON STACK (125252) CHANGED 

T10422 

710430 

710432 

122767 

301431 

104030 

303847 

170350 

EN047I 

CMPB 

BEO 

HIT 

#47, ICNT 

,*4 

/CHECK THE TEST NUMBER 
jBRANCH IF OK 

, WRONG TESTI PC MUST HAVE FOULED UP, 

710434 

104430 




SCOPE 







j •**«**•***••#•#•*•*«#•***•*•*********»*•*•**♦**********••*•**•*******♦• 

ITEST 50J FDIV (KEllP FLOATING DIVIDE INSTRUCTION) 

t 167452|125252 / 327652,125253 ? 177777,177777 

1 PS * 310, STACK POINTER i SR 

1 

710436 

710442 

710446 

710452 

710454 

004567 

027652 

167452 

300300 

016606 

805502 

125253 

125252 

300340 


TST50I 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

R5, PgSHS 
027652,125255 
167452,125252 
300 

TRAPER, 340 

/RUSH 4 WORDS ONTO STACK, SET PRIORITY 
iSICONO OPERAND ON TOP 
iffRST operand on BOTTOM 
IPROCESSOR PRIORITY LEVEL 
iFtS TRAP VECTOR 

710460 

710462 

000240 

075036 




NQP 

FOIV* 

SR 

ifLOATlNt; DIVIDE ON THE STACK 

710464 

710470 

710474 

710476 

710502 

710504 

004767 

022706 

001404 

012706 

104000 

000417 

005514 

000500 

000500 



JSR 

CMP 

BEQ 

MOV 

HLT 

BR 

PCi POPS 

#500, SP 

TSA50 

#500, SP 

ENO50 

/POP the answer 

ICHECK THE STACK POINTER 
IBRANCH IP OK 
IRESTORE STACK POINTER 
ISTACK POINTER FOULED UP 
JSKIP REST OF TEST 

710506 

710514 

710516 

822767 

001401 

104000 

000310 

170064 

TSA50I 

CMP 

BEQ 

hlt 

i310, SPSW 

,*4 

iCHECK PS (EXCEPT T BIT) 

/BRANCH IP OK 

IPS NO? EQUAL TO 310 

710520 

710526 

710530 

022767 

001401 

104002 

177777 

170056 


cmp 

BEQ 

HLT+2 

#177777, ANSI 

/CHECK FIRST HALF OF ANSWER 

IBRANCH IF OK 

lANSl NOT equal TO 177777 

710532 

710540 

710542 

022767 

001401 

104002 

177777 

170046 


CMP 

BEQ 

HLT*2 

#177777, ANS2 

,*4 

ICHECK SECOND HALF OF ANSWER 

IBRANCH IF OK 

IANS2 NOT equal to 177777 

710544 

710552 

710554 

122767 

001401 

104000 

000050 

170226 

END50I 

cmpb 

BEO 

HLT 

#50, ICnT 

,*4 

iCHECK THE TEST NUMBER 
IBRANCH IF OK 

jWRONG TESTI PC MUST HAVE FOULED UP, 

710556 

104400 




SCOPE 
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1956 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 
1976 
1979 
I960 

1981 

1982 

1983 

1984 

1985 


1986 

?10644 

022767 

000103 

167726 

1SA51I CmP 

1987 

? 10652 

001401 



BEQ 

1988 

A Q Q Q 

010654 

104000 



HUT 

1989 

1990 

010656 

022767 

010606 

167720 

CmP 

1991 

010664 

001401 



BEQ 

1992 

?10666 

104001 



HUT*1 

1993 






1994 

?10670 

022767 

000242 

167710 

CMP 

1995 

210676 

001401 

t 


BEQ 

1996 

210700 

104002 



HLT*2 

1997 






1998 

210702 

022767 

014377 

167700 

CMP 

1999 

210710 

001401 



BEO '■ 

2000 

210712 

104004 



HUT*4 

2001 

2002 

210714 

022767 

177777 

167670 

CMP 

2003 

210722 

001401 



BEO 

2004 

210724 

104004 



HUT*4 

2005 






2006 

210726 

022767 

154200 

167660 

CMP 

2007 

210734 

001401 



BEQ 

2008 

210736 

104006 



HLT+6 

2009 






2010 

210740 

005767 

167652 


TST 

2011 

210744 

001401 



BEQ 


R5i 

PUSHS 

jPUSH 4 WORDS ONTO STACK, SET PRIORITY 

014377, 

177777 

iSECOND OPERAND ON TOP 

154200, 

000000 

jTJRST operand on BOTTOM 

246 


jPPOCESSOR PRIORITY LEVEL 

ISR51, 

103 

IFIS TRAP VECTOR 

SP 


iFUOATInG DIVIDE ON THE STACK 

%7, 

POPS 

IPOP the "ANSWER" 
jPJS TRAP DIDN'T OCCUREI 

4500, 

EN051 

SP 

iRESTORE the STACK POINTER 

X7, 

POPES 

IPOP ALL DATA OFF THE STACK 

#500, 

SP 

ICHECK THE STACK POINTER 

ISA51 


IBRANCH IF OK 

#500, 

SP 

JRISTORE the stack POINTER 
ISTACK POINTER FOUUEO UP 

END51 


jSKIP REST OF TEST 

#103, 

SPSW 

iCHECK PS AFTER FlS TRAP 

.♦4 


IBRANCH IF OK 

IPS after FIS TRAP NOT EQUAL TO 103 

#RTA5l, 

ANSI 

ICHECK FIS TRAP RETURN ADDRESS 

,*4 


IBRANCH IF OK 

IFIS TRAP AT WRONG ADDRESS 

#242, 

ANS2 

ICHECK PS BEFORE FIS TRAP 

,*4 


IBRANCH IF OK 

IPS AT FIS TRAP TIME NOT 242 

#014377 

#ANS3 

ICHECK DATA FROM the STACK 

,*4 


IBRANCH IF OK 



IOATA On stack (014377) ohanged 

#177777 

1 ANS4 

ichfck data from stack 

,*4 


I0RANCH IF OK 

IDATA ON STACK (177777) CHANGED 

#154200 

• ANS5 

ICHECK DATA FROM STACK 

, «4 


IBRANCH IF OK 

IOATA on stack (154200) CHANGED 

ANS6 


ICHECK DATA FROM STACK 

,*4 


iBRANCH IF OK 


)TEST 51» FDIV (KEllF FLOATING DIVIDE INSTRUCTION) 

) 154200,00000? / fil4377, 177777 =s> OVERFLOW 

} PS(ON STACK) s 242, STACK POINTER * SP 


?1?560 

004567 

005360 

TST51I 

JSR 

el0564 

014377 

177777 


.WORD 

710570 

154200 

000000 


,WORO 

710574 

000246 



.WORD 

710576 

^^IU22 

000103 


.WORD 

710602 

000240 



NOP 

710604 

075036 



FDIV* 

710606 

004767 

005372 

RTA51I 

JSR 

710612 

104002 



HUT*2 

710614 

012706 

000500 


MOV 

710620 

000453 



BR 

710622 

004767 

005412 

ISR51I 

JSR 

710626 

022706 

000500 


CMP 

710632 

001404 



BEQ 

710634 

012706 

000500 


MOV 

710640 

104000 



HUT 

710642 

000442 



BR 
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2012 

710746 

104006 




Hl,T*6 


jDATA ON STACK (000000) CHANGED 

2013 

2014 

710750 

122767 

000051 

170022 

END51I 

CMPB 

#51, ICNT 

JCHECK THE TEST NUMBER 

2015 

710756 

001401 




BEQ 

,*4 

IBRANCN If OK 

2016 

?10760 

104000 




HI.T 


jWRONG TEST! PC MgST HAVE POUUED UP. 

2017 









2018 

710762 

104400 




SCOPE 



2019 









2020 









2021 






2022 





JTEST 

521 

PDIV (KEllP PUOATING DIVIDE INSTRUCTION) 

2023 





1 

125252i 

125252 / 065252 

,125252 « 100200,000000 

2024 





1 

PS • 2101 STACK 

POINTER « R2 

2025 





1 




2026 

2027 

^10764 

004567 

005332 


TST52I 

JSR 

R5, PgSHR 

IPUSH 4 WORDS ONTO R2 STACK, SET PRIORITY 

2026 

710770 

065252 

125252 



.WORD 

065252,125252 

(SECOND OPERAND ON TOP 

2029 

010774 

125252 

125252 



,W0R0 

125252,125252 

(fTRST OPERAND ON BOTTOM 

2030 

011000 

000217 




.WORD 

217 

(PROCESSOR priority UEVEU 

2031 

7112102 

016606 

000340 



.WORD 

TRAPER, 340 

(PIS TRAP VECTOR 

2032 

711006 

012702 

000630 



MOV 

KiSTACK0,R2 

(SET UP STACK POINTER 

2033 









2034 

711012 

000240 




NOP 



2035 

711014 

075032 




PDIV* 

R2 

(PUOATINS DIVIDE ON the R2 STACK 

2036 

2037 

711016 

004767 

005332 



JSR 

PCi POPR 

(POP the ANSWER 

2038 

211022 

010267 

167554 



MOV 

R2, SSP 

(SAVE **STACK POINTER" 

2039 

711026 

022767 

000210 

167544 


CMP 

«210, SPSW 

(CHECK PS {EXCEPT T BIT) 

2040 

711034 

001401 




BEO 

,** 

(BRANCH IP OK 

2041 

711036 

104000 




HUT 


(PS not EOUAU to 210 

2042 

2043 

711040 

022767 

000634 

167534 


CMP 

«STACK4,SSP 

(CHECK THE STACK POINTER (R2) 

2044 

711046 

001401 




SCO 

.♦4 

(BRANCH IP OK 

2045 

711050 

104000 




HUT 


(STACK POINTER (R2) NOT EQUAU TQ #STACK4 

2046 

2047 

711052 

022767 

100200 

167524 


CMP 

#100200, ANSI 

(CHECK PIRST HAUP OP ANSWER 

2048 

711060 

001401 




BEQ 

,♦4 

(BRANCH IP OK 

2049 

711062 

104002 




HUT+2 


(ANSI NOT EOUAU TO 100200 

2050 

2051 

711064 

005767 

167516 



TST 

ANS2 

(CHECK SECOND HAuP QP ANSWER 

2052 

711070 

001401 




BEO 

,*4 

(BRANCH IP OK 

2053 

711072 

104002 




HUT*2 


(ANS2 NOT EQUAL TO 000000 

2054 

2055 

7U074 

122767 

000052 

167676 

END52I 

cmpb 

#52, ICNT 

(CHECK THE TEST NUMBER 

2056 

711102 

001401 




BEO 

.*4 

(BRANCH IP OK 

2057 

711104 

104000 




HUT 


(WRONG TEST! PC MUST HAVE POUUED UP’, 

2058 









2059 

711106 

104400 




SCOPE 



2060 










) 


o 
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2061 








2062 





1 

2063 





?TEST 531 

FDIV (KEllF floating DIVIDE INSTRUCTION) 

2064 





J 325252 

,125251 / 065252, 

125252 83> underflow 

206^ 





1 PS (ON 

STACK) a 012, 

STACK pointer a SI 

2066 






2067 

2068 

711110 

004567 

005206 


TST53I JSR 

R5, PUSHR 

IPUSH 4 WORDS ONTO Rl STACK* SET PRIORITY 

2069 

711114 

065252 

125252 


.WORD 

065252,125252 

ISECONO operand on TOP 

2070 

711120 

025252 

125251 


.WORD 

025252,125251 

I'FIRST operand on BOTTOM 

2071 

711124 

300015 



.WORD 

015 

IPROCESSOR PRIORITY LEVEL 

20 7 2 

711126 

011156 

000300 


.WORD 

ISR53, 300 

ins TRAP VECTOR 

2073 

711132 

012701 

000630 


MOV 

#STACK0,R1 

ISET UP Rl AS STACK POINTER 

207 4 








2075 

711136 

000240 



NOP 



2076 

711140 

075031 



PDIV* 

Rl 

iPLOATInG divide on THE Rl STACK 

207 7 
2078 

711142 

004767 

005206 


RTA53! JSR 

X7, POPR 

iPOP the manswer" 

2079 

711146 

010167 

167430 


MOV 

Rli SSP 

I5AVE STACK POINTER (Rl) 

2080 

711152 

104002 



H1.T*2 


(FIS TRAP 0IDN«T OCCURE! 

2081 

711154 

000454 



BR 

EN053 


2082 

2033 

711156 

004767 

005224 


ISR53I JSR 

X7, POPER 

(POP ALL P*TA off the stacks 

2084 

711162 

010167 

167414 


MOV 

Rl, $SP 

jSAVE STACK POINTER (Rl) 

2085 

711166 

022767 

000300 

167404 

CMP 

«300, SPSW 

ICHECK PS AFTER FIS TRAP 

2086 

711174 

001401 



BE a 

.♦4 

jBRANCH IF OK 

2087 

711176 

104000 



HkT 


IPS after FIS TRAP NOT EQUAL TO 300 

2088 

2089 

711200 

022767 

000630 

167374 

CMP 

«STACK0,SSP 

iCHECK THE STACK POINTER (Rl) 

2090 

711206 

001401 



bed 

,*4 

IBRANCH IF OK 

2091 

^ fli o o 

711210 

104000 



HIT 


iSTACK POINTER (Rl) NOT EQUAL TO #STACK0 

209Z 

2093 

711212 

022767 

011142 

167364 

CMP 

#RTA53, ANSI 

ICHECK FIS trap RETURN ADDRESS 

2094 

711220 

001401 



bed 

.*4 

JBRANCH IF OK 

2095 

711222 

104001 



HlT+1 


iFis trap at wrong address 

2096 








2097 

711224 

022767 

000012 

167354 

CmP 

#012, ANS2 

ICHECK PS BEFORE FfS TRAP 

2098 

711232 

001401 



BEQ 

. *4 

iBRANCH IF OK 

2099 

711234 

104002 



HUT*2 


IPS AT FIS TRAP TIME NOT 012 

2100 

2101 

711236 

022767 

065252 

167344 

CMP 

#065252, ANS3 

ICHECK DATA FROM THE STACK 

2102 

711244 

001401 



8E0 

, *4 

IBRANCH IF OK 

2103 

711246 

104004 



HUT*4 


lOATA ON STACK (065252) CHANGED 

2104 








2105 

711250 

022767 

125252 

167334 

CMP 

#125252, ANS4 

ICHECK DATA FROM STACK 

2106 

711256 

001401 



BEO 

,*4 

IBRANCH IF OK 

2107 

711260 

104004 



Hl.T+4 


IDATA ON STACK (125252) CHANGED 

2108 








210V 

711262 

022767 

025252 

167324 

CMP 

#025252, ANS5 

ICHECK DATA FROM STACK 

2110 

711270 

001401 



BEQ 

,*4 

IBRANCH IF OK 

2111 

711272 

104008 



HL.T+6 


IDATA on STACK (025252) CHANGED 

2112 








2113 

711274 

022767 

125251 

167314 

CMP 

#125251, ANS6 

ICHECK DATA FROM STACK 

2114 

711302 

001401 



BEQ 

,*4 

IBRANCH IF OK 
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2115 

2116 

2117 

2118 

2119 

2120 
2121 
2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 
2161 
2162 
2163 
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711304 

10400$ 




HI.T+6 



jDATA on STACK (125251) CHANGED 

211306 

711314 

711316 

122767 

001401 

104000 

308053 

167464 

EN053i 

CMPB 

BEO 

HUT 

P53, 

,*4 

ICNT 

jCHECK the TEST number 
{BRANCH IF OK 

{WRONG TEST} PC MUST HAVE FOUUEO UP, 

? 11320 

104400 




SCOPE 








*•*»*•****»••*#**•********•**••*******••♦*•**•*•••**•»•***•***•**** 

ITEST 541 FOIV (KEllF FUOATlNG DIVIDE INSTRUCTION) 

) 0000001000000 / 140670|123456 ■ 000000| 000000 

) PS a 104, STACK POINTER ■ R3 

211322 

211326 

011332 

011336 

211340 

011344 

004567 

140670 

000000 

000105 

016606 

012703 

004774 

123456 

000000 

000340 

000630 


TST54I 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

MOV 

R5, 

140670, 
000000 , 
105 

traper, 

ASTACK0 

PUSHR 

123456 

000000 

340 

,R3 

{PUSH 4 WORDS ONTO R3 STACK, SET PRIORITY 

{SECOND OPERAND ON TOP 

(FIRST operand on BOTTOM 

{PROCESSOR PRIORITY UEVEt 

{FJS TRAP VECTOR 

{SET UP STACK POINTER 

211350 

011352 

000240 

075033 




NOP 

FDIV* 

R3 


I'FUOATInC divide on THE R3 STACK 

211354 

01136(5 

211364 

011372 

011374 

004767 

010367 

022767 

001401 

104000 

004774 

16T216 

000104 

167206 


JSR 

MOV 

CMP 

BEfi 

hut 

PC, 

R3i 

Pi04, 

,*4 

PQPR 

SSP 

SPSW 

iPfiP THE ANSWER 
)SAVC "STACK POINTER" 
(CHECK PS (EXCEPT T BIT) 
(BRANCH IP OK 
IPS NOT EQUAU TO 104 

211376 

011404 

011406 

022767 

001401 

104000 

000634 

167176 


CMP 

BEO 

HUT 

P5TACK4 

,** 

,SSP 

(CHECK THE STACK POINTER (R3) 

(BRANCH ir OK 

(STACK pointer (R3) NOT EQUAL TO #8TACK4 

011410 

211414 

011416 

005767 

001401 

104002 

167170 



T5T 

BEO 

HUT*2 

ANSI 

,♦4 


(CHECK FIRST HALF OF ANSWER 

(BRANCH IP OK 

(ANSI NOT EQUAL TO 000000 

211420 

711424 

711426 

005767 

001401 

104002 

167162 



TST 

BEO 

HUT+2 

ANS2 

,*4 


(CHECK SECOND HALF OF ANSWER 

(BRANCH IF OK 

(ANS2 NOT EQUAL TO 000000 

711430 

711436 

711440 

122767 

001401 

104000 

008054 

167342 

END54I 

CMPB 

BEO 

hut 

#54, 

,*4 

ICNT 

(CHECK THE TEST NUMBER 
(BRANCH IF OK 

(WRONG TEST} PC MUST HAVE FOULED UP, 

711442 

104400 




SCOPE 
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instruction tests, 


2164 

2166 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 
2181 
2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 
2201 
2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 
2211 
2212 

2213 

2214 

2215 

2216 
2217 


ITEST 551 rojv (KEllF FLOATIMG DIVIDE INSTRUCTION) 
( 100052|052525 / 000006,123456 »=> DIVIDE BY ZERO 
> PS(ON STACK) « 353, STACK POINTER » SP 


711444 

204567 

004474 


TST55I 

JSR 

R5, 

PUSHS 

IPUSH 4 WORDS ONTO STACK, SET PRIORITY 

711450 

000006 

123456 



.WORD 

000006, 

123456 

iSECONO OPERAND ON TOP 

711454 

100052 

;’!52525 



.WORD 

100052| 

052525 

iFIRST operand on bottom 

711460 

000357 




.WORD 

357 


iPROCESSOR priority LEVEL 

711462 

011506 

00031}. 



.WORD 

ISR55, 

311 

|ffS TRAP VECTOR 

711466 

200240 




NQP 




711470 

075036 




FOIV* 

SP 


iFLoating divide on the stack 

711472 

204767 

304506 


RTA55I 

JSR 

%7, 

POPS 

JPOP the "ANSWER" 

711476 

104022 




HLT+2 



iFIS TRAP DIDN'T OCCURE! 

711500 

012706 

000500 



MOV 

4500, 

SP 

iRPSTORE THE StACK POINTER 

711504 

000454 




BR 

END55 



711506 

004767 

004526 


ISR55I 

JSR 

XT, 

POPES 

)POP ALL data off the STACK 

711512 

022706 

000500 



CMP 

#500, 

SP 

jCHECK the STACK POINTER 

711516 

001404 




SE9 

ISA55 


jBRANCH IF OK 

711520 

012706 

000500 



MOV 

#500, 

SP 

JRESTORE THE STACK POINTER 

711524 

104000 




MI.T 



ISTACK POINTER FOULED UP 

711526 

000443 




BR 

END55 


ISKIP REST OF TEST 

711530 

022767 

00031} 

167042 

ISA55I 

CmP 

#311, 

SPSW 

ICHECK pS AFTER FIS TRAP 

711536 

001401 




BEQ 

,*4 


iBRANCH IF OK 

711540 

104000 




HIT 



IPS AFTER FIS TRAP NOT EOUAL TO 3H 

711542 

022767 

0}}472 

167034 


CMP 

#HTA55, 

ANSI 

iCHECK FIS trap RETURN ADDRESS 

711550 

001401 




BEQ 

,*4 


iBRANCH IF OK 

711552 

104001 




HI.T+1 



|F!S TRAP AT WRONG ADDRESS 

711554 

022767 

000353 

167024 


CMP 

#353, 

ANS2 

iCHECK PS BEFORE FIS TRAP 

711562 

001401 




BEQ 



iBRANCH ip ok 

711564 

104002 




H1.T42 



|PS AT FIS TRAP TIME NOT 353 

711566 

022767 

000006 

167014 


CMP 

#000006 

,ANS3 

iCheck data from The stack 

711574 

001401 




BEQ 

,*4 


iBRANCH if ok 

711576 

104004 




H[,T*4 



IDATA ON STACK (000006) CHANGED 

711600 

022767 

}23456 

167004 


CMP 

#123456 

, ANS4 

ICHECK DATA FROM STACK 

711606 

001401 




BEO 

,*4 


IBRANCH IF OK 

711610 

104004 




HI.T44 



IOATA on stack (123456) CHANGED 

711612 

1^22767 

100052 

166774 


CMP 

#100052 

,ANS5 

ICHECK DATA FROM STACK 

711620 

001401 




BED 



iBRANCH IF OK 

711622 

104006 




HLT+6 



iDATA ON STACK (100052) CHANGED 

711624 

222767 

052525 

166764 


CMP 

#052525 

, ANS6 

ICHECK data FROM STACK 

711632 

001401 




BEQ 



iBRANCH if ok 



MAlNDEC-ll-DBKEA-A KEU^ (POP-.il P 

OBKEAA.Pli PDIV TEST SECTION 

2218 ?11634 104006 

2219 

2220 211636 122767 200055 167134 

2221 711644 301401 

2222 711646 104000 

2223 

2224 711650 104400 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 711652 304567 004622 

2234 711656 011702 

2235 711660 104000 104000 

2236 711664 004000 105004 

2237 711670 000144 

2238 711672 016606 000340 

2239 

2240 711676 000240 

2241 711700 075007 

2242 711702 104000 

2243 711704 104000 

2244 711706 004000 

2245 711710 105004 

2246 

2247 711712 004767 004620 

2248 711716 022767 000140 166654 

2249 711724 001401 

2250 711726 104000 

2251 

2252 711730 022767 104000 166646 

2253 711736 001401 

2254 711740 104002 

2255 

2256 711742 022767 104000 166636 

2257 711750 001401 

2258 711752 104002 

2259 

2260 711754 022767 000401 166626 

2261 211762 001401 

2262 711764 104004 

2263 

2264 711766 005767 166620 

2265 711772 001401 

2266 711774 104004 

2267 

2266 711776 122767 000056 166774 

2269 712004 001401 

2270 212006 104000 

2271 



IS) instruction 

TESTS, 
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Hl.T+6 


)DATA ON STACK (052525) CHANGED 

END55I CMPB 

#55, 

ICNT jCHECK THE TEST NUMBER 

BEO 

,*4 

laRANCH IF OK 

HUT 


IWRONG test; PC MUST HAVE POUUED UP, 

SCOPE 




ITEST 561 TAOD (KEllF rLOATJNG ADD JNSTRyCTJON) 

) 004000|105004 4- 104000,104000 s 000401,000000 

I PS = 140, STACK POINTER n PC 

j *»*********♦*»**••***•**•**••*****•♦*•**•••**♦*• *******••••**•♦•♦•****• 


TST56I 

USR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

R5, PUSH? 

STK56 

104000,104000 

004000,105004 

144 

TRAPER,340 

IPUSH 4 WORDS ONTO STACK, SET PRIORITY 

ITOP OF STACK 

ISCCONO OPERAND ON TOP 

I'FIRST operand on BOTTOM 

IPROCESSOR PRIORITY UEVEU 

IFIS TRAP VECTOR 

STK56I 

NQP 

PAOD-*- 

104000 

104000 

004000 

105004 

PC 

IFUOATINO add on FOUUOWINC 4 WORDS 
ISHOUUD CONTAIN 104000 
iSHOUUO contain 104000 
IBEFORC FAOD, 0040001 AFTERi 000#0i 
IBEFORC FADD, 105004) AFTER# 000000 


JSR 

CMP 

BEO 

HUT 

PCi PQP7 

#140, SPSW 

iPDP the answer 

I'CHECK PS (EXCiPT T BIT) 

IBRANCH IF OK 

IPS not EOUAU to 140 


CMP 

BEQ 

HUT-^2 

#104000, ANSI 

.44 

ICHECK FIRST HAUF OF INPUT DATA (STk56> 

(BRANCH IF OK 

lANSl NOT EOUAU TO 104000 


CMP 

BEO 

HUT-t-2 

#104000, ANS2 

('CHECK SECOND HAuF OP INPUT DATA (STK56*2) 

(BRANCH IF OK 

IANS2 NOT EOUAU TO 104000 


CMP 

BEO 

HUT-^4 

#000401, ANS3 
.*4 

ICHECK FIRST HAUF OF ANSWER 

(BRANCH IF OK 

IANS3 NOT EOUAU TO 000401 


TST 
BEQ 
hut* 4 

ANS4 

.44 

(CHECK SECOND HAuF OF ANSWER 

(BRANCH IF OK 

(ANS4 NOT EOUAU TO 000000 

END56I 

CMPB 

BEQ 

HUT 

#56, ICNT 

.44 

(CHECK THE TEST NUMBER 
(BRANCH IF OK 

(WRONG TEST! PC MUST HAVE FOUUED UP. 
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DBKEAA.Pll 


-DBKEA-A KEllF (PDP-11 HS) 

TEST QF rjS USIMG REGISTER 


instruction TEijTS, 
7 (PC) 


2272 712010 104400 SCOPE 

2273 


2274 






2215 





1 

2276 





JTEST 571 ■ 

227 7 





1 104030, 

227 B 





1 PS = 25 

2279 





1 ««««#«»••«•»•• 

2280 






2281 

712012 

004567 

004462 


TST57I JSR 

2282 

712016 

012042 



.WORD 

2283 

712020 

104000 

104000 


(WORD 

2284 

712024 

104000 

105004 


.WORD 

2285 

712030 

000252 



(WORD 

2286 

712032 

0166C6 

000340 


, WORD 

2287 






2288 

712036 

000240 



NOP 

2289 

712040 

075017 



FSUB* 

2290 

712042 

104000 



STK57I 104000 

2291 

712044 

104000 



104000 

2292 

712046 

104000 



104000 

2293 

712050 

105004 



105004 

2294 






2295 

712052 

004767 

004460 


JSR 

2296 

712056 

022767 

000250 

166514 

CMP 

2297 

712064 

001401 



BEO 

2298 

712066 

104000 



HLT 

2299 






2300 

712070 

022767 

104000 

166506 

CMP 

2301 

712076 

001401 



BEQ 

2302 

712100 

104002 



HtT*2 

2303 






2304 

712102 

022767 

104000 

166476 

CMP 

2305 

712110 

001401 



BEO 

2306 

712112 

104002 



HLT*2 

2307 






2308 

712114 

022767 

100401 

166466 

CMP 

2309 

712122 

001401 



BEQ 

2310 

712124 

104004 



HLT*4 

2311 






2312 

712126 

005767 

166460 


TST 

2313 

712132 

001401 



BEO 

2314 

712134 

104004 



HLT*4 

2315 






2316 

712136 

122767 

000057 

166634 

EN057I CMPB 

2317 

712144 

001401 



BEO 

2318 

712146 

104000 



HUT 

2319 






2320 

712150 

104400 



SCOPE 

2321 







FSUB (KEllF floating SUBTRACT INSTRUCTION) 

135004 ■ 104000,134000 B 100401,000000 
0, STACK POINTER = PQ 

**###*•***•****•******••***•*•*•*•**•**•***••*•••**•***•• 


R5| PUSH7 

STK57 

104000,104003 

104000,135004 

252 

TRAPER|340 

IPUSH 4 WORDS ONTO STACK, SET PRIORITY 

iTOP OF STACK 

iSECONO OPERAND ON TOP 

jFIRST operand on BOTTOM 

jPROCESSOR PRIORITY LEVEL 

iFlS TRAP vector 

PC 

iFLOATING subtract on following 4 WORDS 
iSHOULn CONTAIN 104000 
ISHOULD contain 104000 
JBEFORE FSUB, 1040001 AFTERi 100401 
jBEFORE FSUB, 1050041 AFTERi 000000 

PCi POPT 

#250, SPSW 

1*4 

iPOP the answer 

ICHECK PS (EXCEPT T BIT) 

IBRANCH IF OK 

IPS NOT EQUAL TO 250 

#104000, ANSI 
,*4 

(CHECK FIRST HALF OF INPUT DATA (STK57) 

iBRANCH IF OK 

I'ANSl NOT equal TO 104000 

#104000, ANS2 
,*4 

(Check second half of input data (stk5T*2) 

(BRANCH IF OK 

('ANS2 NOT EQUAL TO 104000 

#100401. ANS3 
,*4 

(CHECK FIRST HALF OF ANSWER 

(BRANCH IF OK 

(ANS3 NOT EQUAL TO 100401 

ANS4 

,*4 

(CHECK SECOND half OF ANSWER 

(BRANCH IF OK 

(ANS4 NOT EQUAL TO 000000 

#57, ICNT 

1*4 

(CHECK THE TEST NUMBER 

iQRAiyrw tr fiK 

(WRONG TEST! PC MUST HAVE FOULED UP, 
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DBKEAA.PJl Test of FIS using register 7 (PC) 


2322 

2323 

2324 

2325 

2326 

2327 
2320 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 
2330 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 


I *»»*»o*»*«*»«# *«*«***«************••**»*»*•••«***•*»*****«*****•* ****** 

(TEST 601 FMUU (KEllF FUOATjNG MUUTIP1.T INSTRUCTIQM) 

t 1346001073601 * 104000|104000 s 000401,000000 

} PS = 240, STACK POINTER = PC 


012152 

012156 

012160 

012164 

012170 

012172 

004567 

012202 

104000 

134600 

000246 

016686 

004322 

104000 

073601 

000340 


TST60I 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

R5, PUSH7 

STK60 

104000,104000 

134600,073601 

246 

TRAPER|340 

(PUSH 4 WORDS ONTO STACK, SET PRIORITY 

)TOP OF STACK 

(SECOND OPERAND ON TOP 

(FIRST operand on BOTTOM 

(PROCESSOR PRIORITY LEVEU 

(FIS TRAP VECTOR 

012176 

012200 

012202 

012204 

012206 

012210 

000240 

075027 

104000 

104000 

134600 

073601 

- 


STK60I 

NOP 

FMUt* 

104000 

104000 

134600 

073601 

PC 

(FUOATING MUuTIPuY ON FOUUOWING 4 WORDS 
(SHOUUD CONTAIN 104000 
(SHOUUO CONTAIN 104000 
IBCFORE FMUU» 1346001 AFTER, 000401 
(BEFORE FMUUi 0736011 AFTER, 000000 

012212 

012216 

012224 

012226 

004767 

022767 

001401 

104000 

004320 

000240 

166354 


JSR 

CMP 

BEO 

hut 

PC» PQP7 
#240, SPSW 
,*4 

(POP The answer 

(CHECK PS (EXCEPT T BIT) 

(BRANCH IF OK 

(PS NOT EOUAU TO 240 

012230 

012236 

012240 

022767 

001401 

104002 

104000 

166346 


CMP 

BEQ 

HUT+2 

#104000« ANSI 

.*4 

(CHECK first HAt,F OF INPUT OATA (STk60) 

(BRANCH IP OK 

(ANSI not EQUAU to 104000 

012242 

012250 

012252 

022767 

001401 

104002 

104000 

166336 


CMP 

BEQ 

HUT+2 

#104000, ANS2 

,*4 

(CHECK SECOND HAI.F OF INPUT DATA (STK60+2) 

(BRANCH IF OK 

IANS2 not EQUAU TO 104000 

012254 

012262 

012264 

022767 

001401 

104004 

000401 

166326 


CMP 

BEQ 

HUT+4 

#000401, ANS3 
.*4 

(CHECK First hauf of answer 

(BRANCH If OK 

(ANS3 not EQUAU TO 000401 

012266 

012272 

012274 

005767 

001401 

104004 

166320 



TST 

BEQ 

HUT+4 

ANS4 

,♦4 

(CHECK SECOND HAUF OF ANSWER 

(BRANCH IF OK 

(ANS4 not EQUAU TO 000000 

012276 

012304 

012306 

122767 

001401 

104000 

000060 

166474 

ENO60I 

CMP8 

BEQ 

HUT 

#60, ICNT 

,*4 

(CHECK THE TEST NUMBER 
(BRANCH IF OK 

(WRONG TEST! PC MUST HAVE FOUUED UP, 

012310 

104400 




SCOPE 






O 


o 
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08KEAA.PU TEST OF FIS USING REGISTER 7 (PC) 
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2370 

2371 

2372 

2373 

2374 

2375 


j **»*#****«*******•**•***•»•*•••***•**•*•••••*•*•*•*•••••*••*••••••*•*•• 

ITEST 611 roiv (KElir riOATlNG DIVIDE INSTRUCTION) 

) 102500|146000 / 104000,104000 4 036700,000000 

I PS ■ 340, STACK POINTER » PC 

)*»»«•«*«*****•*•»••**«****♦**♦**********•****•*••••••••*•****•**•**•••* 


2376 







2377 

n2312 

004567 

004162 


TST61! 

USR 

2378 

712316 

012342 




.WORD 

2379 

712320 

104000 

104000 



.WORD 

2380 

712324 

102500 

146000 



.WORD 

2381 

712330 

000357 




.WORD 

2382 

712332 

016606 

000340 



.WORD 

2383 







2384 

712336 

000240 




NOP 

2385 

712340 

075037 




roiv* 

2336 

712342 

104000 



STK6H 

104000 

2387 

712344 

104000 




104000 

2388 

712346 

102500 




102500 

2389 

712350 

146000 




146000 

2390 







2391 

712352 

004767 

004160 



JSR 

2392 

712356 

022767 

000340 

166214 


CMP 

2393 

712364 

001401 




BEO 

2394 

712366 

104000 




HI.T 

2395 







2396 

712370 

022767 

104000 

166206 


CMP 

2397 

712376 

001401 




BEO 

2398 

712400 

104002 




Hl,T*2 

2399 







2400 

712402 

022767 

104000 

166176 


CMP 

2401 

712410 

001401 




BEO 

2402 

712412 

104002 




HI.T+2 

2403 







2404 

712414 

022767 

036700 

166166 


CMP 

2405 

712422 

001401 




BEO 

2406 

712424 

104004 




HLT+4 

2407 







2408 

712426 

005767 

166160 



TST 

2409 

712432 

001401 




BEO 

2410 

712434 

104004 




HLT*4 

2411 







2412 

712436 

122767 

000061 

166334 

EN061I 

CMPB 

2413 

712444 

001401 




BEO 

2414 

712446 

104000 




HUT 

2415 







2416 

712450 

104400 




SCOPE 

2417 








R5, PUSH7 

STK61 

104000,104000 

102500,146000 

357 

TRAPER.340 

/PUSH 4 WORDS ONTO STACK, SET PRIORITY 

/TOP OF STACK 

iSECONO operand ON TOP 

jFlRST operand ON BOTTOM 

/PROCESSOR priority LEVEL 

iPfS TRAP VECTOR 

PC 

iFlOATInC divide on following 4 WORDS 
ISHOULO CONTAIN 104000 
ISHOULO contain 104000 
IBEFORE roiv, 102500J AFTER, 036700 
iBFFORE roiv, 1460001 AFTER, 000000 

PC» P0P7 
)»340, SPSW 
,*4 

iPOP the answer 

ICHECK PS (EXCEPT T BIT) 

/branch if ok 

IPS NOT EQUAL TO 340 

#104000, ANSI 
,*4 

iCHECK FIRST HALF OF INPUT DATA (STK61) 

IBRANCH IF OK 

lANSi NOT EQUAL TO 104000 

#104000, ANS2 
,44 

ICHECK SECOND half OF INPUT DATA (STK61+2) 

iBRANCH IF OK 

IANS2 NOT EQUAL TO 104000 

#036700, ANS3 

,44 

ICHECK FIRST HALF OF ANSWER 

/BRANCH IF OK 

IAN53 NOT EQUAL TO 036700 

ANS4 

,44 

/CHECK SECOND HALF OF ANSWER 

IBRANCH IF OK 

IANS4 NOT EQUAL TO 000000 

#61, ICNT 

/CHECK THE TEST NUMBER 
iBRANCH if ok 

IWRONG TEST! PC MUST HAVE FOULED UP, 



MAlNOEC-il-DBKEA-A 
DBKEAA.Pll TEST Qf 

2418 

2419 

2420 

2421 

2422 

2423 

2424 
2426 

2426 

2427 P12452 012704 

2428 ?12456 012744 

2429 ?12462 012744 

2430 P12466 312744 

2431 P12472 012744 

2432 P12476 012744 

2433 P12502 012744 

2434 P12506 012744 

2435 P12512 012744 

2436 B12516 012744 

2437 B12522 012744 

2438 P12526 012737 

2439 

2440 P12534 000240 

2441 B12536 075014 

2442 B12540 075034 

2443 012542 075024 

2444 B12544 075004 

2445 

2446 212546 013767 

2447 212554 042767 

2448 212562 012467 

2449 212566 012467 

2450 212572 010467 

2451 212576 022767 

2452 212604 001401 

2453 212606 104000 

2454 

2455 212610 022767 

2456 212616 001401 

2457 212620 104000 

2458 

2459 212622 022767 

2460 212630 001401 

2461 212632 104002 

2462 

2463 212634 022767 

2464 212642 001401 

2465 212644 104002 

2466 

2467 212646 122767 

2468 212654 001401 

2469 212656 104000 

2470 

2471 212660 104400 



KEiif^ (PDP -11 fis> Instruction tests, macyii',620 21«aus«72 12107 paise 52 

ALU >^|S AT ONCE 


J*tt«»*»**«****0**»*********»***«* *♦♦*****************•*••****•* *•*•*•**• 

{TEST 621 TEST ALU INSTRUCTION TOGETHER 

1 032107,065432 * 045670,123456 

{ 134343,10707? + * 137201|115230 

{ (135252,125252 . 040616,016161} 

I PS4150, STACK P0INTERSR4 


000640 


TST62I 

MOV 

4STACK8, 

R4 

ISCT STACK POINTER 

107070 



MOV 

4107070, 

••(R4) 

{'LOAD data onto STACK 

134343 



MOV 

#134343, 

«(R4) 


065432 



MOV 

#065432, 

-<R4} 


032107 



MOV 

#032107, 

• <R4) 


123456 



MOV 

#123456, 

»{R4} 


045670 



MQV 

#045670, 

• (R4) 


125252 



MOV 

#125252, 

• {R4) 


135252 



MOV 

#135252, 

«(R4) 


016161 



MOV 

#016161, 

• (R4) 


040616 



MOV 

#040616, 

• (R4} 


3001A4 

177776 


MOV 

#144, 

»#PS 

iSET PROCESSOR STATUS 




NOP 

FSUB* 

R4 

1135252 

,l25252ip040616,016l61il40616, 017434 




roiv* 

R4 

1045670 

,i28456?140616,017434«145246, 047065 




fMUU* 

R4 

1032107, 0654S2»l45246,047065f 137201, 106137 




FADO* 

R4 

1134343 

, 107070*137201) 106137«137201, 115230 

177776 

166024 


MOV 

»#PS, 

SPSW 

ISAVE PINAL PS 

000020 

166016 


BIC 

#20, 

$PiW 

icLr t.bit 

166016 



MOV 

(R4)4, 

ANSI 

iSAVE FIRST half OF ANSWER 

166014 



MQV 

(R4)4, 

ANS2 

islive second half op answer 

166004 



MOV 


SSP 

iSAVE stack pointer 

000150 

165774 


CMP 

#150, 

SPSW 

1 CHECK PS (EXCEPT T BIT) 




8E0 

,4i4 


JBRANCH IF OK 




HUT 



IPS NOT equal to 150 

000640 

165764 


CMP 

#STACK8, 

SSP 

/check THE STACK POINTER (R4) 




BEQ 

,*4 


/BRANCH IF OK 




hut 



/STACK POINTER (R4| NOT EQUAL TQ 674 

137201 

165754 


CMP 

#137201, 

ANSI 

/CHECK FIRST HALF OF ANSWER 




8E0 

.*4 


/BRANCH IF OK 




HUT*2 



/ANSI NOT EQUAL TO 137201 

115230 

165744 


CMP 

#115230, 

ANS2 

ICHECK second half of ANSWER 




BEQ 

,*4 


/BRANCH IF OK 




HLT*2 



IANS2 NOT EQUAL TO 115230 

000062 

166124 

EN0621 

cmpb 

#62, 

icnt 

iCHECK THE TEST NUMBER 




BEQ 

,*4 


IBRANCH IP OK 




HUT 



IWRONG TEST! PC MUST HAVE FOULED UP, 




SCOPE 







MACY11,620 21pAUQ»7? 12|07 PAGE 53 


MAlNk^Mi-OBKEA*A K£UF CPpP^U FIS) INSTRUCTION TEStsi, 

08KEAA,Pil TEST STACK OVERFLOW 


2472 
24 73 

2474 

2475 

2476 

2477 

2478 

2479 

2480 
2461 
2452 

2483 

2484 

2485 

2486 
2437 

2488 

2489 
2491 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 


!teST*63?* test THAT YELLOW ZONE STACK OVERFLOW WORKS WITH FjS 

I STACK POINTER « SP s 356 ^ ## 


?12662 

012701 

000356 


TST63I 

MOV 

#356, 

R1 

ISET UP STACK 

?12666 

012721 

035152 



MOV 

#035152 

,<RD* 

IPUT DATA ON THE STACK 

?12672 

012721 

125252 



MOV 

#125252 

,(RD* 


?12676 

012721 

043125 



MOV 

#043125 

,(RD* 


?12702 

012721 

052525 



NOV 

#052525 

, (RD* 


?12706 

012737 

012772 

000004 


MOV 

#3S, 

a#4 

iSETUP stack ERROR VECTOR 

et2714 

012737 

000300 

000006 


MOV 

#300, 

0#6 


712722 

013700 

177776 



MOV 

##PS, 

R0 

ISAVE THE T-B|T 

712726 

012746 

000340 



MOV 

#340, 

-<SP) 

ICUR t*bit 

712732 

012746 

012740 



MOV 

#1*1 

• (SP) 


712736 

000002 




RTl 




712740 

012706 

000356 


IS: 

MOV 

#356, 

SP 

lOVERFLOW THE STACK 

712744 

000240 




NOP 




712746 

075006 




PAOD* 

SP 


lOe 043125 FUOATINfi POINT ADD 

712750 

016767 

165022 

165622 

2Si 

MOV 

PS, 

SPSW 

iSAVE PS FOR TTPiNfi 

712756 

010667 

165620 



MOV 

SP, 

SSP 

iSAVE STACK POINTER 

712762 

012706 

000500 



MOV 

#500, 

SP 

iRESTORE THE STACK 

712766 

104000 




HUT 



iSTACK overflow DIDN'T TRAP 

712770 

000454 




BR 

4S 



712772 

016767 

165000 

165600 

3$! 

MOV 

PS, 

SPSW 

ISAVE THE PS 

713000 

010667 

165576 



MOV 

SP, 

SSP 

ISAVC the stack POINTER 

713004 

010601 




MOV 

SP, 

Rl 


713006 

012706 

000500 



MOV 

#5001 

SP 

iRESTORE the STACK 

713012 

012702 

000604 



MOV 

#AN51, 

R2 

iTDP OF ANSWER TAPLC 

713016 

012122 




MOV 


(R2)* 

iSAVE the stack data 

713020 

012122 




MOV 

(Ri)*, 

(R2>* 


713022 

012122 




MOV 


(R2>* 


713024 

012122 




MOV 

(Rl)*, 

<R2)* 


713026 

022767 

000300 

165544 


CMP 

#300, 

SPSW 

ICHECK THE PS AFTER THE TRAP* » 

713034 

001401 




BEQ 

,*4 


IBRANCH IF OK - , 

713036 

104000 




HUT 



IPS NOT EOUAU TO 300 

213040 

022767 

000356 

165534 


CMP 

#356, 

SSP 

iCHECK FOR SP AT RIGHT SPOT 

713046 

001401 




BEQ 

1*4 


iBRANCH IF OK 

713050 

104000 




HIT 



iSTACK POINTER FOULED UP 

713052 

022767 

012750 

165524 


CMP 

#2*, 

ANSI 

ICHECK TOP OF STACK FOR RTI AQR, 

713060 

001401 




8EQ 

, *4 


I'BRANCH IF OK 

713062 

104001 




HLT+1 



IRTI ADDRESS NOT EQUAL TO #2S 

713064 

322767 

000340 

165514 


CMP 

#340, 

ANS2 

iCHECK stack data for RTI PS 

713072 

001401 




BEQ 

,*4 


IBRANCH IF OK 

713074 

104002 




HLT+2 



|RTI PS NOT EQUAL TO 340 



HAINDEC-U-09KEA-A KEHF (PDP-U HS} INSTRUCTION TESTS, 
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2526 

713076 

022767 

043125 

165504 


CMP 

#043125 

lANSS 

2527 

713104 

001401 




bed 

.*< 


2528 

713106 

104004 




HLT + 4 



2529 









2530 

713110 

022767 

052526 

165474 


CMP 

#052526 

1 ANS4 

2531 

713116 

001401 




BEQ 

,*4 


2532 

713120 

104004 




HLT + 4 



2533 









2534 

713122 

010046 



4Si 

MOV 

R0f 

« C SP 1 

2535 

713124 

012746 

013132 



MOV 

#5$, 

© 1 SP 1 

2536 

713130 

000002 




RT! 



2537 

713132 

122767 

000063 

165640 

511 

CMPB 

#63« 

IGHT 

2538 

713140 

001401 




BEQ 

,*4 


2539 

715142 

104000 




hlt 



2540 









2541 

713144 

104400 




SCOPE 



2542 









254 3 









2544 






2545 





{TEST 

641 

TEST THAT RED 

2546 





1 

STACK 

POINTER * 

SP S 0 

2547 





1 #ftftft#ftftft#ll«ftftft#ft@ft#ft#^#»##««# 

2548 

2549 

715146 

012701 

000332 


TST64I 

MOV 

#332, 

Rl 

2550 

713152 

012721 

025177 



MOV 

#025177 

iCRl)* 

2551 

713156 

012721 

177777 



MOV 

#177777 

,(R1)* 

2552 

713162 

012721 

125200 



MOV 

#125208 

1 ( R 1 ) 4 

2553 

713166 

012721 

000000 



MOV 

#000000 

,(R1)* 

2554 

713172 

012737 

013256 

000004 


MOV 

«3S, 

P«4 

2555 

713200 

012737 

000300 

000006 


MOV 

#300, 

9#6 

2556 

713208 

013700 

177776 



MOV 

PPPSj 

R0 

2557 

713212 

012746 

008340 



MOV 

#340, 

<• ( SP ) 

2556 

713216 

012746 

013224 



MOV 

#iSi 

• ISP ) 

2559 

713222 

000002 




R T I 



2560 

713224 

012706 

000332 


IS 

MOV 

■# 33 2 , 

SP 

2561 









2562 

713230 

000240 




NQP 



2563 

?t3232 

075006 




FAOD* 

SP 


2564 









2565 

713234 

016767 

164536 

165336 

2S: 

MOV 

PSi 

$P5W 

2566 

713242 

010667 

165334 



MOV 

SP, 

SSP ^ 

2567 

713246 

012706 

000500 



MOV 

#500, 

SP 

2568 

713252 

104000 




hlt 



2569 









2570 

713254 

000473 




BR 

4S 


2571 









2572 

713256 

016767 

164514 

165314 

3S: 

MOV 

PS, 

SP8W 

2573 

713264 

010667 

165312 



MOV 

SP, 

SSP 

2574 

713270 

012706 

000500 



MOV 

#580, 

SP 

2575 

713274 

013767 

000000 

165302 


MOV 

»#8, 

ANSI 

2576 

713302 

013767 

000002 

165276 


MOV 

P#2, 

ANS2 

2577 

713310 

012701 

000332 



MOV 

#332, 

R4 

2578 

713314 

012702 

000610 



MOV 

#ANS3, 

R2 

2579 

713320 

012122 




MOV 

(R4)*i 

(R2) + 
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jCheck first half of answer 

IBRANCW IF OK 

IANS3 NOT EQUAL TO 043125 

iCHECK SECOND HALF OF ANSWER 

jBPANCH IF OK 

JANS4 NOT EQUAL TO 052526 

iRESTORE THE T«BlT 


I CHECK THE TEST NUMBER 
{BRANCH IF OK 

{WRONG TEST! PC MUST HAVE FOULED UP,. 


ISET UP STACK 

{PUT DATA ON THE STACK 


{SETUP stack error VECTOR 

{SAVE THE T*BIT 
ICUR TWBIT 


{OVERFLOW THE STACK 


lOe 125200 FL0ATIN5 POINT ADD 

{SAVE PS FOR TYPJN5 
{SAVE STACK POINTER 
{■RESTORE THE STACK 
{STACK overflow DIDN'T TRAP 


{SAVE THE PS 

{SAVE THE STACK POINTER 

{■RESTORE THE STACK 

{SAVE return ADR 

{'SAVE return status 

{POINT TO TOP OF ORIGINAL STACK 

.•PAI3 AAicyro TAQtr 



) 


MAIMC^w ti-OSKEA^A KEU^ (PDP-il PIS) INSTRUCTION 

OBKEAA.cij, test stack OVERFLOW 


2560 n3322 012122 MQV 

2561 ?13324 012122 MQV 

2582 rl3326 012122 "^OV 

2583 U3330 022767 000300 165242 CMP 

2584 ? 13336 001401 SEQ 

2565 713340 104000 MIT 

2586 

2587 ? 13342 005767 165234 TST 

2588 ?13346 001401 BEO 

2589 ’13350 104000 HIT 

2598 

2591 713352 022767 013234 165224 CmP 

2592 813360 001401 BEO 

2693 713362 104001 HlT*i 

2594 

2695 713364 022767 000340 166214 CmP 

2596 713372 001401 BEO 

2597 713374 104002 HLT*2 

2598 

2599 713376 022767 025177 165204 CMP 

2600 713404 001401 BEO 

2601 713406 104004 HLT+4 

2602 

2603 713410 022767 177777 165174 CMP 

2604 713416 001401 BEO 

2605 713420 104004 H|.T*4 

2606 

2607 713422 022767 125200 165164 CMP 

2608 713430 001401 BEQ 

2609 713432 104004 HI.T't-4 

2610 

2611 713434 005767 165156 TST 

2612 713440 001401 BEQ 

2613 713442 104004 HL,T*4 

2614 

2615 713444 010046 4$! MQV 

2616 713446 012746 013454 MQV 

2617 713452 000002 RTI 

2618 713454 122767 000064 165316 5S! CMPB 

2619 713462 001401 BEO 

2620 713464 104000 HLT 

2621 

2622 713466 104400 

2623 


SCOPE 


TESTS, 
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(RlJ+i 
(RD + i 
4300, 
,*4 

(RS>* 

(R2)* 

spsw 

ICHECK THE PS after THE TRAP 

IBRANCN IF OK 

IPS not equal TO 300 

SSP 

,*4 


iCHECK FOR SP AT RIGHT SPOT 

iBRANCH IF OK 

iSfACK POINTER FOULED UP 

42S, 

,*4 

ANSI 

ICHECK TOP OF STACK FOR RTI AQR 
iBRANCH if ok 

ifTTI ADDRESS NOT EQUAL TO 42T 

4340, 

,*4 

ANS2 

ICHECK STACK DATA FOR RTI PS 

iBRANCH if ok 

IRTJ PS NOT EQUAL TO 340 

4025177, 

.*4 

ANS3 

iCHECK data FROM THE STACK 
IBRANCH IF OK 

IDATA ON STACK (025177) CHANGED 

#177777, 

,*4 

ANS4 

iCHECK DATA FROM THE STACK 
IBRANCH IF OK 

IDATA ON STACK U77777) CHANGED 

#125200, 

,*4 

ANS5 

ICHECK DATA FROM THE STACK 
iBRANCH if ok 

IDATA ON STACK (125200) CHANGED 

ANS6 
, *4 


iCHECK data from THE STACK 
iBRANCH if ok 

I'DATA ON stack (000000) changed 

R0i 

#5$, 

• (SP) 
-CSP) 

IRESTORE THE T*BIT 


464, 

.*4 


ICNT 


I'CHECK THE TEST NUMBER 
IBRANCH IF OK 

IHRONG TESTl PC MgST HAVE FOUWED UP, 
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2624 

2625 

2626 

2627 

2628 
2629 


2630 

T13473 

012701 

000326 


TST65I 

MOV 

P326, 

R1 

2631 

T13474 

012721 

100125 



MOV 

PJ00125 

» (RD* 

2632 

713500 

012721 

052525 



MOV 

A052525 

1 (RU* 

2633 

713504 

012721 

135753 



MOV 

#135753 

1 (RD* 

2634 

713510 

012721 

024642 



MOV 

#024642 

, ( R1 ) * 

2635 

713514 

012737 

013600 

000004 


MOV 

#3S, 

S#4 

2636 

713522 

012737 

000300 

000006 


MOV 

*3001 

P#6 

2637 

713530 

013700 

177776 



MOV 

PiPSi 

R0 

2638 

713534 

012746 

000340 



MOV 

#340, 

■ ( SP ) 

2639 

713540 

012746 

013546 



MOV 

#iS| 

-<8P) 

2640 

713544 

000002 




RTI 



2641 

713546 

012706 

000326 


IS! 

MQV 

P326, 

SP 

2642 









2643 

713552 

000240 




NOP 



2644 

713554 

075006 




FADD* 

SP 


2645 









2646 

713556 

016767 

164214 

165014 

2S! 

MOV 

PSi 

SPSW 

2647 

713564 

010667 

165012 



MOV 

SP , 

SSP 

2648 

713570 

012706 

000500 



MOV 

#500, 

SP 

2649 

7 13574 

104000 




WLT 



2650 









2651 

713576 

000474 




BR 

4S 


2652 

2653 

713600 

016767 

164172 

16A772 

3$! 

MOV 

PS» 

SPSW 

2654 

713606 

010667 

164770 



MOV 

SP 1 

SSP 

2655 

713612 

012706 

000500 



MOV 

#5001 

SP 

2656 

713616 

013767 

000000 

164760 


MOV 

P#0, 

ANSI 

2657 

713624 

013767 

000002 

164754 


MOV 

•#2i 

ANS2 

2658 

713632 

012701 

000326 



MOV 

#326 1 

Rl 

2659 

713636 

012702 

000610 



MOV 

#ANS3| 

R2 

2660 

713642 

012122 




MOV 

(Rl>*» 

(R2)* 

2661 

713644 

012122 




MOV 

(Rl>*» 

(R2)* 

2662 

713646 

012122 




MOV 

(Rl)*i 

(R2)* 

2663 

713650 

012122 




MOV 

<Rl)*i 

(R2)* 

2664 

713652 

022767 

000300 

164720 


CMP 

#3001 

SPSW 

2665 

713660 

001401 




BEQ 

, *4 


2666 

713662 

104000 




HLT 



2667 









2668 

713664 

005767 

164712 



TST 

SSP 


2669 

713670 

001401 




beq 

, *4 


2670 

713672 

104000 




HLT 



2671 

2672 

713674 

022767 

013556 

164702 


CMP 

«2S, 

ANSI 

2673 

713702 

001401 




BEQ 

, *4 


2674 

713704 

104001 




HLT+1 



2675 









2676 

713706 

022767 

000340 

164672 


CMP 

#340, 

ANS2 

2677 

713714 

001401 




BEQ 

1*4 



JTeST*^I*******TEST*THAT red 20NE STACK OVERFLOW WORKS WITH FIS 
j STACK POINTER 5 SP = 0 

ISET UP STACK 
IPUT DATA ON THE STACK 


ISETUP STACK ERROR VECTOR 

ISAVE the T-BJT 
ICLR TiBIT 


(OVERFLOW THE STACK 


(DO 135753 floating POINT ADD 

(SAVE PS rOR TYPING 
(SAVE STACK POINTER 
(RESTORE THE STACK 
I'StACK overflow DIDN'T TRAP 


isave the PS 

iSAVE the stack POINTER 

(RESTORE THE STACK 

(SAVE RETURN ApR 

(SAVE return status 

(POINT TO TOP OF ORIGINAL STACK 

(Top of answer table 

(SAVE THE STACK DATA 


(CHECK THE PS AFTER THE TRAP 

(BRANCH IF OK 

(PS NOT EQUAL TO 300 

(CHECK FOR SP AT RIGHT SPOT 

(BRANCH IF OK 

(STACK POINTER FOULED UP 

(CHECK TOP OF STACK FOR RTl ADR, 
(BRANCH IF OK 

(RTI address not EQUAL TO #2S 

(CHECK stack DATA FQR RTI PS 
(BRANCH IF OK 
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2678 n3716 104002 

2679 

2680 ?13720 022767 

2681 713726 001401 

2682 713730 104004 

2683 

2684 713732 022767 

2685 713740 001401 

2686 713742 104004 

2687 

2688 713744 022767 

2689 713752 001401 

2690 713754 104004 

2691 

2692 713756 022767 

2693 713764 001401 

2694 713766 104004 

2695 

2696 713770 010046 

2697 713772 012746 

2698 713776 000002 

2699 714000 122767 

2700 714006 001401 

2701 714010 104000 

2702 

2703 

2704 


100125 164662 

052525 164652 

135753 164642 

024642 164632 

4S: 

014000 

000065 164772 5S: 




CMP 

#100125, ANS3 

B£Q 
NiT + 4 


CMP 

#052525, ANS4 

B£Q 

HIT4^4 

1 

CMP 

#135753, ANS5 

BEQ 

HUT^4 

,*4 

CMP 

#024642, ANS6 

8E0 

hltm 

,64 

MOV 

R0, *(SP) 

MOV 

«Tl 

#5$, -(SP) 

CMPB 

#65, ICNT 

8EQ 

HLT 

,*4 


}RTI PS NOT EQUAU TO 340 

ICMECK DATA FROM THE STACK 
iBRANCH IF OK 

IOATA on stack (1001251 CHANGED 

(CHECK DATA FROH THE STACK 
iBRANCH IF QK 

lOAT* ON STACK (052525) CHANGED 

rCHECK DATA FROM THE STACK 
(BRANCH IF OK 

(DATA ON STACK (135753) CHANGED 

(CHECK DATA FROM THE STACK 
(BRANCH IP OK 

(DATA ON STACK (024642) CHANCED 
(RESTORE THE T«B1T 


(CHECK THE. TEST NUMBER 
(BRANCH IP OK 

iWRONC TEST) PC MUST HAVE FOUtEO UP, 


714012 


1044 «« 


SCOPE 
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2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 


j**--#*###**#*#********#***##*#****##**-**#*****#***-******************** 

JTEST 66» test that STACK POINTER ADDRESS ERRQR CAUSES ABqRT 

) INSTRUCTION = FADD, STACK POINTER » R2 

} *»«»**»»***»*•*»**♦»♦***•******»*»*•««*«**•*’*••**•**•••*****•***•******• 


P14014 

014022 

014030 

014034 

014040 

014044 

714046 

714052 

^12737 

012737 

004567 

070707 

146314 

000143 

016606 

012702 

014076 

000340 

002266 

016161 

143434 

000340 

000631 

000004 

000006 

TST66J 

MOV 

MOV 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

MQV 

#ISR66, »#4 
#340, »#6 

R5, PUSHR 

070707,016161 
146314,143434 
143 

TRAPER, 340 
#STACKl,R2 

ISET UP address TRAP VECTOR 

jPUSH 4 WORDS ONTO R2 STACK, SET 

iSECOND OPERAND ON TOP 

I'PIRST operand on BOTTOM 

IPROCESSOR PRIORITY UEVEU 

|P1S trap VECTOR 

iSET UP R2 AS STACK POINTER 

PRIORITY 

P14056 

714060 

000240 

075002 




NOP 

PAOD+ 

R2 

iFLOATINO ado on the R2 STACK 


714062 

714066 

714072 

714074 

004767 

010267 

104002 

000454 

002266 

164510 


RTA66I 

JSR 

MOV 

HUT*2 

8R 

% 7 $ POPR 

R2, SSP 

EN066 

IPOP the "ANSWER" 
jSAVE STACK POINTER (R2) 
lP!S TRAP DIDN'T OCCURIJ 


714076 

714102 

714106 

714114 

714116 

004767 

010267 

022767 

001401 

104000 

002304 

164474 

000340 

164464 

ISR66I 

JSR 

MOV 

CHP 

BEO 

HL,T 

XT, POPER 

R2, SSP 

#540, SPfW 

,*4 

)>OP AUU DATA OFF THE STACKS 
)SAVC STACK POINTER (R2) 

1 CHECK PS AFTER ADR, ERR, TRAP 
JBRANCH IF OK 

jPS after trap not EOJAL To 340 


714120 

714126 

714130 

022767 

001401 

104000 

000631 

164454 


CMP 

BEO 

HLT 

#STACKiiSSP 

,♦4 

ICHECK THE STACK POINTER (R2) 
IBRANCH IF OK 

iSTACK POINTER (R2> NOT EQUAL TO 

#STACK1 

714132 

714140 

714142 

022767 

001401 

104001 

014062 

1^444 


CHP 

BEO 

HUT-A-l 

«RTA66, ANSI 
, *4 

ICHECK FIS TRAP RETURN ADDRESS 
iBRANCH IF OK 

IFIS trap AT WRONG ADDRESS 


714144 

714152 

714154 

022767 

001401 

104002 

000141 

164434 


CMP 

BEO 

HI.T+2 

il41i ANS2 

.♦4 

iCHECK PS before FIS TRAP 
IBRANCH IF OK 

IPS AT FIS TRAP TIME NOT 141 


714156 

714164 

714166 

022767 

001401 

104004 

070707 

164424 


CMP 

BEO 

H|,T*4 

#070707, ANS3 
,44 

iCHECK data from the STACK 
IBRANCH IF OK 

IQATA ON STACK (070707) CHANGED 


714170 

714176 

714200 

022767 

001401 

104004 

016161 

164414 


CMP 

BEO 

Hl.T+4 

#016161, ANS4 

iCHECK data from STACK 
IBRANCH IF OK 

IPATA ON STACK (016161) CHANGED 


714202 

714210 

714212 

022767 

001401 

104006 

146314 

164404 


CMP 
BEO 
HUT +6 

#146314, ANS5 
,44 

iCHECK data from STACK 
iBRANCM IF OK 

lOATA ON STACK (146314) CHANGED 


714214 

022767 

143434 

164374 


CMP 

#143434, ANS6 

ICHECK DATA FROM STACK 



Q j 
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2759 

{?14222 

001421 




BECI 

,4-4 


IBRANCH If OK 

2760 

?14224 

104006 




HtT-^6 



IDATA ON STACK (143434) CHANGED 

2761 

2762 

^14226 

122767 

000066 

164544 

EN066I 

CMP0 

#66, 

ICNT 

I CHECK THE TEST NUMBER 

2763 

? 14234 

£01421 




BEQ 

,*4 


j branch IF OK 

2764 

el4236 

104000 




hut 



(WRONG TEST! PC MUST HAVE FOUUED UP, 

2765 










2766 

M4240 

104400 




SCOPE 




27 6 7 










2768 










2769 





1 « » « « • 

««« 




2770^ 





J TEST 

671 

TEST that stack 

POINTER ADDRESS ERROR CAUSES ABqRT 

2771 





1 

INSTRUCTION ? FMUUi 

STACK POINTER * R5 

2772 






2773 

2774 

814242 

012737 

014312 

0 0 00 0 4 

TST67I 

MOV 

41SR67| 

9#4 

iSfT UP ADDRESS TRAP VECTOR 

2775 

814250 

012737 

000340 

000006 


MOV 

#340, 

(»#6 


2776 

814256 

012737 

000202 

177776 


MOV 

#202, 

9#PS 

iSCT PROCESSOR STATUS 

2777 

814264 

012705 

160000 



MOV 

#160000 

,R5 

jSET UP R5 AS STACK POINTER 

2778 










2779 

814270 

000240 




NOP 




2780 

814272 

075025 




PmUU* 

R5 


ifLOATlNC MUUTIPUT ON THE R5 STACK 

2781 










2782 

814274 

013767 

177776 

164276 

RTA67I 

MOV 

#iPS, 

SRSW 

ISAVE THE PSW 

2783 

814302 

010567 

164274 



MOV 

R?i 

S§P 

ISAVE STACK pointer (R5) 

2784 

814306 

104000 




HUT 



iris TRAP DIDN'T OCCURfl 

2785 

814310 

000:43t 




BR 

EN067 



2786 










2787 

814312 

004767 

002070 


ISR67I 

JSR 

X7, 

POPER 

ipop Auu data off the stacks 

2788 

814316 

010567 

164260 



MOV 

R5, 

SSR 

iSAVE 8TA(3K pointer (R5) 

2789 

814322 

022767 

000340 

164250 


CMP 

#340, 

SPSW 

1 check PS after ADR, ERR, TRAP 

2790 

814330 

001401 




BEQ 

,44 


j'BRANCH If OK 

2791 

814332 

104000 




HUT 



IPS after trap not equal to 340 

2792 

2793 

814334 

022767 

160000 

164240 


CMP 

#160000 

.S5P 

ICHECK THE STACK POINTER (R5) 

2794 

814342 

001401 




BEQ 



1 BRANCH If OK 

2795 

814344 

104000 




HUT 



(STACK POINTER (R5) NOT EOUAU TO #160000 

2796 

2797 

814346 

022767 

014274 

164230 


CMP 

#RTA67, 

ANSI 

(CHECK FIS trap return ADDRESS 

2798 

814354 

001401 




BED 

,44 


(BRANCH If OK 

2799 

814356 

104001 




HUT+1 



(FfS TRAP AT WRONG ADDRESS 

2800 

2801 

814360 

022767 

000210 

164220 


CMP 

#24.01: 

ANS2 

(CHECK PS before FIS TRAP 

2802 

814366 

001401 




BCQ 

,44 


(BRANCH IF OK 

2803 

814370 

104002 




HiT4»2 



(PS AT FIS TRAP TIME NOT 210 

2804 

2805 

814372 

122767 

000067 

164400 

END67I 

CMPB 

#67. 

ICNT 

(CHECK THE TEST NUMBER 

2806 

814400 

001401 




BEQ 



(BRANCH IF OK 

2807 

814402 

104000 




NUT 



(WRONG TEST! PC MUST HAVE FOULED UP', 

2808 










2809 

814404 

104400 




SCOPE 




2810 










2811 

814406 

012737 

000006 

00000 4 


MOV 

#6, 

4#4 

(RESTORE TIME-OUT VECTOR 

2812 

814414 

005037 

000006 



eiR 

R#6 
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2813 

?14420 

012767 

000003 

001514 


MOV 

#3, 

times 

(REDUCE number of ITTERATJONS 

2814 










2815 






2816 





ITEST 

701 

TE5T that FIS 

ABORTS PROPERUY WHEN INTERUPTEO 

2617 





J 

1010101 

020202 * 

000000 

,000000 e 101010,020202 

2816 





1 

PS * 144, 

STACK 

POINTER = Rl 

2819 






2820 










2821 

J14426 

012737 

014526 

000064 

TST70I 

MOV 

#|SR70, 

P464 

(SET UP TEUEPRINTER INTEPUPT VECTOR 

2822 

?14434 

012737 

000200 

000066 


MOV 

4200, 

P466 


2823 

714442 

000004 

017440 



TYPE, 

RETURN 


ITYPE carriage RETURN, LINE FEED 

2824 

714446 

012767 

014454 

001464 


MOV 

4, *6, 

UA0$ 

(RESET LOOP ADDRESS 

2825 

714454 

012777 

000100 

164172 


MOV 

41001 

PTPS 

(SET tty INTERgPT ENABLE 

2826 

714462 

012777 

000100 

I6n66 


MOV 

4100, 

PTPB 

(TYPE ”P" 

2827 

714470 

004567 

001626 



JSR 

R5, 

pgsHR 

(PUSH 4 WORDS ONTO Rl STACK, SET PRIORITY 

2628 

714474 

000000 

000000 



.WORD 

000000, 

000000 

(SECOND OPERAND ON TOP 

2829 

714500 

101010 

020202 



.WORD 

1010101 

020202 

(FIRST OPERAND ON BOTTOM 

2830 

714504 

000143 




.WORD 

143 


(PROCESSOR priority LEVEL 

2831 

714506 

016606 

000340 



.WORD 

TRAPERi 

340 

(FfS TRAP VECTOR 

2832 

714512 

012701 

000630 



MOV 

4STACK0 

• Rl 

(SET UP STACK POINTER 

2833 










2834 

714516 

000240 




NOP 




2835 

714520 

075011 



RTA70I 

F5UB* 

Rl 


(FLOATING SUBTRACT ON THE STACK 

2836 

714522 

024141 




CMP 

•<Rl) • 

-»Rl) 

(RESET THE STACK POINTER FOR NEXT PASS 

2637 

714524 

000775 




BR 

RT470 


(REPEAT UNTIL INTERUPTEO 

2838 

2839 

714526 

022716 

014520 


ISR70I 

CMP 

4RTA70, 

ISP) 

(CHECK IF INTERUPT AT FIS INSTR, 

2840 

714532 

001410 




BEQ 

IS 


(BRANCH IF IT DIO 

2841 

714534 

022766 

014520 

000004 


CMP 

4RTA70, 

4«SP) 

(CHECK FOR INTERUPT WITH T-BIT SET 

2842 

714542 

001407 




SEQ 

21 


(BRANCH IF IT DID 

2843 

714544 

012777 

000100 

164104 


MOV 

41001 

PTPB 

(CONTINUE TO TYPE "P” 

2844 

714552 

000002 




RTl 




2845 

2846 

714554 

004767 

001626 


IS! 

JSR 

PCi 

POPER 

(SAVE All the stuff on the STACK 

2847 

714560 

000406 




BR 

3S 



2848 

2849 

714562 

013767 

177776 

164010 

2S: 

MOV 

PiPS# 

SPSW 

(SAVE THE SPW 

2850 

714570 

022626 




CMP 

(SP>4-| 

(SP>* 

(RESET THE STACK TO IGNORE THE TRACE TRAP 

2851 

714572 

004767 

001616 



JSR 

PCi 

POPERl 

(POP ALL the StUFF OFF THE STACK 

2852 

714576 

005077 

164052 


3S: 

CUR 

PTPS 


ICLR INTERUPT ENABLE 

2853 

714602 

022706 

000S00 



CMP 

4500 , 

SP 

(CHECK THE STACK POINTER 

2854 

714606 

001406 




BEQ 

ISA70 


(BRANCH IF OK 

2855 

714610 

010667 

163766 



MOV 

SP, 

S5P 

(SAVE FOR TYPING 

2856 

714614 

012706 

000500 



MOV 

4500, 

SP 

(RESTORE THE STACK POINTER 

2857 

714620 

104000 




HUT 



(STACK POINTER FOULED UP 

2858 

714622 

000450 




BR 

ENO70 


(SKIP REST OF TEST 

2859 

2860 

714624 

010167 

163752 


ISA70I 

MOV 

Rli 

SSP 

(SAVE STACK POINTER 

2861 

714630 

022767 

000204 

163742 


CMP 

4204, 

SPSW 

(CHECK PS AFTER INTERUPT 

2862 

714636 

001401 




BEQ 

.*4 


(BRANCH IF OK 

2863 

714640 

104000 




HUT 



(PS after INTERUPT NOT EQUAL TO LVLA 

2864 

2865 

714642 

022767 

000630 

163732 


Cmp 

4STACK0 

,SSP 

(CHECK THE STACK POINTER (Rl) 

2666 

714650 

001401 




BEQ 

i*4 


(BRANCH IF OK 



MAInKxi 1-D8KEA-A KEUF (PDP-11 HS) INSTRUCTION TESTS, MACYll,620 21-AUG-72 12|07 PAGE 6i 

DBKEAA.Pll INTERUPT ABORT TEST SECTION 


2867 

714652 

104000 




«UT 


iSTACK POINTER (Rl) NOT EQUAL TO 6STACK0 

2B6B 

2669 

714654 

Z22767 

314520 

163722 


CMP 

4RTA70, ANSI 

jCWECK FIS TRAP RETURN ADDRESS 

2670 

714662 

0014?! 




9E3 


, BRANCH IF OK 

2871 

714664 

104001 




HLT*1 


|FIS trap at wrong ADDRESS 

2672 

2873 

714666 

222767 

300144 

163712 


CMP 

4144, ANS2 

ICHECK PS BEFORE INTERUPT 

2674 

714674 

301401 




9E0 

,*4 

»BRANCH IF OK 

2875 

714676 

104002 




HI.T*2 


IPS AT INTERUPT TIME NOT 144 

2676 









2877 

714700 

305767 

163704 



tst 

ANS3 

(CHECK DATA from THE STACK 

287$ 

el4704- 

0014fi 




8E0 

,*4 

iBBATCH ir OK 

zan 

7 14706 

104004 




Hl,T*4 


f'DATA ON STACK t000000) CHANGED 

2880 









2681 

214710 

005767 

163676 



TSf 

ANS4 

iCHECK DATA FROM STACK 

2882 

014714 

00-1 401 




8E0 


iBRANCH IP OK 

2883 

71.4716 

104004 




Ml,T*4 


lOATA ON STACK (0000001 CHANGED 

2684 









2885 

014720 

022767 

101010 

163666 


CMP 

6101010, ANSS 

rCHECK DATA FROM STACK 

2886 

?14726 

001401 




BEG 


jBRANCH If OK 

2887 

714730 

104006 




HiT+6 


fOATA ON STACK (101010> eHANGEO 

2888 









2888 

7l473t 

02l'767 

020202 

163656 


CMP 

6020202, A NS6 

fCHECK DATA FROM STACK 

2890 

014740 

001401 




beg 


iBRANCH IF OK 

2891 

ft 

014742 

104006 




H!.T*6 


lOATA ON STACK (020202) CHANGED 

2893 

714744 

122767 

000070 

164026 

END70I 

cmpb 

#70, ICnT 

iCHECK THE TEST NUMBER 

2694 

714752 

001401 




BEO 

.64 

IBRANCH IF OK 

2895 

714754 

104000 




HLT 


I'WRONG TCSTI PC MUST HAVE FOULED UP, 

2896 









2897 

714756 

104400 




SCOPE 



2898 









2899 









2900 






2901 





ITEST 

711 

TEST THAT FIS 

ABORTS PROPERLY WHEN INTERUPTEO 

2902 





1 

123456, 

123456 / 040200 

,000000 > 123456,123456 

2903 





1 

PS » 051, STACK 

POINTER 6 R4 

2904 





|ftftftftftftftftft«#ft#ft#ft«»#ft## «##«#####*♦##*#* 

2905 









2906 

714760 

012737 

01S060 

000064 

TST71I 

MOV 

4ISR71, 6664 

ISET UP TELEPRINTER INTERUPT VECTOR 

2907 

714766 

012737 

000200 

000066 


MOV 

6200, 6666 


2908 

*14774 

000004 

017440 



TYPE, 

return 

iTYPE carriage RETURN, LINE FEED 

2909 

715000 

012767 

015006 

001132 


MOV 

6.66, LADS 

IRESET LOOP ADDRESS 

2910 

715006 

012777 

000100 

163640 


MOV 

6100, 6TPS 

iSET TTY INTERUPT ENABLE 

2911 

715014 

012777 

000100 

163634 


MOV 

6100, 6TPB 

ITVPE ”6" 

2912 

715022 

304567 

001274 



JSR 

R5, PySHR 

IPUSW 4 WORDS ONTO R4 STACK, SET PRIORITY 

2913 

715026 

040200 

000000 



.WORD 

040200,000000 

iSECONO OPERAND ON TOP 

2914 

715032 

123456 

123456 



.WORD 

123456,123456 

IFIRST operand ON BOTTOM 

2915 

715036 

000040 




.WORD 

040 

IPROCESSOR PRIORITY LEVEL 

2916 

715040 

016606 

000340 



.WORD 

TRAPER, 340 

jFIS TRAP VECTOR 

2917 

715044 

012704 

000630 



MOV 

6STACK0,R4 

iSET up STACK POINTER 

2918 









2919 

715050 

300240 




NQP 



2920 

715052 

075034 



RTA71I 

FDIV* 

R4 

iFLOATING divide ON THE STACK 
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292% 

?i5054 

024444 




CMP 

•CR4)i •(R4) 

jRESET THE STACK POINTER FOR NEXT PASS 

2922 

fl5056 

000775 




BR 

RTA71 

jREPEAT .UNTIU INTERgPTED 

2923 

2924 

?15060 

022716 

015052 


ISR71I 

CMP 

#RTA71, (SP) 

ICHECK IF INTERUPT AT FIS INSTR, 

2925 

?15064 

001410 




BIQ 

1$ 

j BRANCH IF IT DID 

2926 

aS066 

022766 

015052 

000004 


CMP 

#RTA71, 4{SP) 

iCHECK FOR INTERUPT WJTH T*BIT SET 

2927 

a5074 

001427 




BZQ 

2S 

IBRANCM IF IT DIO 

2920 

?15076 

012777 

000100 

163552 


MOV 

#100, PTPB 

iCONTJNyE TO TYPE »'P" 

2929 

?15104 

000002 




RTI 



2930 

2931 

C15106 

004767 

001274 


ISr 

JSR 

PCi POPER 

ISAVE AUU THE STUFF ON THE STACK 

2932 

?15U2 

000406 




8R 

3S 


2933 









2934 

015114 

013767 

177776 

163456 

2$! 

MOV 

PiPSi SPSW 

(SAVE THE SPW 

2935 

015122 

022626 




CMP 

(SP)*, (SP)* 

I'RESET THE stack TO IGNORE THE TRACE TRAP 

2936 

015124 

004767 

001264 



JSR 

PC, POPERl 

|POP AUU the stuff OFF THE STACK 

2937 

015130 

005077 

163520 


3$i 

cun 

»TPS 

ICUH INTERUPT ENABUE 

2938 

015134 

022706 

000500 



CMP 

#500, SP 

ICRECK THE STACK POINTER 

2939 

013140 

001406 




8CQ 

ISA71 

(BRANCH IF OK 

2940 

015142 

010667 

163434 



MOV 

SP, SSP 

iSAVE FOR TYPING 

2941 

015146 

012706 

000500 



MOV 

#500, SP 

(RESTORE THE STACK POINTER 

2942 

015152 

104000 




HUT 


(STACK pointer FOUUED UP 

2943 

A A 

015154 

000451 




BR 

ENP71 

(SKIP REST OF TEST 

2V44 

2945 

015156 

010467 

163420 


ISA71I 

MOV 

R4, 

(SAVE STACK POINTER 

2944 

015162 

022767 

000204 

163410 


CMP 

#204, SPSW 

(CHECK PS AFTER INTERUPT 

2947 

015170 

001401 




BEO 

,*4 

(BRANCH IF OK 

2948 

015172 

104000 




HUT 


(PS after INTERUPT NOT EQUAU TO UVUA 

2949 

2950 

015174 

022767 

000630 

163400 


CMP 

#STACK0,SSP 

(CHECK THE STACK POINTER (R4) 

2951 

015202 

001401 




BE9 

,*4 

(BRANCH IF OK 

2952 

015204 

104000 




HUT 


(STACK POINTER <RA) NOT EOUAU TO #STACK0 

2953 

2954 

015206 

022767 

015052 

163370 


CMP 

#RTA71, ANSI 

(CHECK ns TRAP RETURN ADDRESS 

2955 

015214 

001401 




BE0 

,*4 

(BRANCH IF OK 

2956 

015216 

104001 




HUT*1 


(FIS TRAP AT WRONG ADDRESS 

2957 

2958 

015220 

022767 

000051 

163360 


cmp 

#051, ANS2 

(CHECK PS before INTERUPT 

2959 

015226 

001401 




BE5 

,*4 

(BRANCH IF OK 

2960 

015230 

104002 




HUT*2 


(PS AT INTERUPT TINE NOT 051 

2961 

2962 

015232 

022767 

040200 

163350 


CMP 

#040200, ANS3 

(CHECK DATA FROM THE STACK 

2963 

015240 

001401 




BIO 

,*4 

(BRANCH If OK 

2964 

015242 

104004 




HUT't'4 


|0*TA on STACK (040200) CHANGED 

2965 









2966 

015244 

005767 

163342 



TST 

ANS4 

(CHECK data FROM STACK 

2967 

015250 

001401 




BEQ 

,*4 

(BRANCH IF OK 

2960 

015252 

104004 




HUT+4 


(DATA ON STACK (000000) CHANGED 

2969 

2970 

015254 

022767 

123456 

163332 


Cmp 

#123456, ANS5 

ICHECK DATA FROM STACK 

2971 

015262 

001401 




BEQ 

,*4 

(BRANCH IF OK 

2972 

015264 

104006 




HUT+6 


(DATA ON STACK (123456) CHANGED 

2973 

2974 

015266 

022767 

123456 

163322 


CMP 

#123456, ANS6 

(CHECK DATA FROM STACK 
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2975 

?15274 

001401 




8E0 

,*4 


IBRANCH IP OK 

2976 

? 15276 

104006 




HUT+6 



IDATA ON stack (123456) CHANGED 

2977 










2978 

fl5300 

122767 

000071 

163472 

EN071I 

cmpb 

671, 

ICNT 

ICHECK THE TEST NUMBER 

2979 

?15306 

001401 




BEQ 

• *4 


IBRANCH IF OK 

2960 

715310 

104000 




HtT 



jHRONC TEST! PC MUST HAVE FOULED UP, 

2981 










2982 

015312 

104400 




SCOPE 




2983 










2984 










2985 





1 

2986 





»TEST 

721 

TEST THAT PIS 

ABORTS properly WHEN 1NTERUPTE0 

2987 





1 

107070, 

070707 • 

040200 

,000000 '■ 107070,070707 

2988 





1 

PS ■ 111, 

STACK 

POINTER f R0 

2989 





1 





29V0 

2991 

015514 

012737 

015414 

000064 

TST721 

MOV 

615R72, 

tP«64 

ISET UP teleprinter INTERUPT VECTOR 

2992 

015322 

012737 

000200 

000066 


MOV 

6200, 

9#66 


2998 

015330 

000004 

017440 



TYPE, 

RETURN 


ITYPE CARRIAGE RETURN, UlNf FEED 

2994 

215334 

012767 

015342 

000576 


MOV 

6, *6, 

UAOS 

IRESET LOOP ADDRESS 

2995 

015342 

012777 

t00100 

1 63304 


MOV 

6100, 

PTPS 

)SCT TTY INTERUPT ENABLE 

2996 

015350 

012777 

000100 

163300 


MOV 

#100 » 

•TPB 

ITYPE "0" 

2997 

015356 

004567 

000740 



JSR 

R5, 

PUSHR 

(PUSH 4 WORDS ONTO R0 ITACKi S|T PRIORITY 

2990 

015362 

040200 

000000 



.WORD 

040200, 

000000 

ISICONO OPERAND ON TOP 

2999 

015366 

107070 

070707 



,WORD 

107070, 

070707 

1 FIRST operand on BOTTOM 

3002 

015372 

000100 




,WORO 

100 


IPROCESSOR PRIORITY LEVEL 

3001 

015374 

016^6^06 

000340 



.WORD 

TRAPER, 

343 

IFIS TRAP VECTOR 

3002 

015400 

nz7m 

000630 



MOV 

6STACK0 

,R0 

ISET UP STACK pointer 

3003 










3004 

015404 

000240 




NOP 




3005 

01S406 

075020 



RTA72I 

FMUL* 

R0 


IFLOATINQ multiply ON THE STACK 

3006 

015410 

024040 




CMP 

•<R0)i 

•j«0) 

iRESET THE STACK POINTER FOR NEXT PASS 

3007 

015412 

000775 




BR 

RTA72 


IREPEAT until INTERUPTEO 

3008 

3009 

015414 

022716 

015406 


I5R72I 

CMP 

#RTA72, 

(SP) 

iCHECK IF INTERUPT AT FIS INSTR, 

3010 

015420 

001410 




BEO 

IS 


iBRANQH if it DIO 

3011 

015422 

022766 

015406 

000004 


CMP 

#RTa72, 

4(SP) 

JCHECK FOR INTERUPT WITH T-BIT SET 

3012 

015430 

001407 




BEQ 

2$ 


jBBAMCN IP IT DIO 

3013 

015432 

012777 

000100 

163216 


MOV 

6100, 

PTPB 

(CONTINUE TO type "P" 

3014 

015440 

000002 




RTl 




3015 

3016 

015442 

004767 

000740 


IS: 

JSR 

PC, 

POPER 

(SAVE all the stuff ON THE STACK 

3017 

015446 

000406 




BR 

3S 



0018 

3019 

015450 

013767 

177776 

163122 

2S: 

MOV 

06PS, 

$PSW 

(SAVE THE SPW 

3020 

015456 

022626 




CMP 

(SP)*, 

(SP)* 

(RESET the stack TO IGNORE ThE TRACE TRAP 

3021 

015460 

004767 

000730 



JSR 

PC, 

POPERl 

(POP ALL the stuff off THE STACK 

3022 

015464 

005077 

163164 


3$: 

CLP 

9TPS 


(CUR INTERUPT enable 

3023 

015470 

022706 

000500 



CMP 

#500, 

SP 

(CHECK THE STACK POINTER 

3024 

015474 

001406 




BEO 

ISA72 


(BRANCH IF OK 

3025 

015476 

010667 

163100 



MOV 

SP, 

S5P 

(SAVE FOR TYPING 

3026 

015502 

012706 

000500 



MOV 

6500, 

SP 

(RESTORE THE STACK POINTER 

3027 

015506 

104000 




HUT 



(STACK POINTER FOULED UP 

3028 

015510 

000451 




BR 

EN072 


(SKIP REST OF TEST 
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3029 







3030 

?15512 

010067 

163064 


ISA72I 

MOV 

3031 

f 15516 

322767 

000204 

163054 


CMP 

3032 

?15524 

301401 




3EQ 

3033 

M5526 

104030 




hut 

3034 







3035 

?1553e 

322767 

000630 

163044 


CMP 

3036 

715536 

001401 




bed 

3037 

715540 

104000 




HIT 

3038 







3039 

715542 

322767 

015406 

163034 


CMP 

3040 

715550 

001401 




BEO 

3041 

715552 

104001 




HUT + 1 

3042 







3043 

715554 

022767 

000111 

163024 


CMP 

3044 

715562 

001401 




BE3 

3045 

715564 

104002 




HUT*2 

3046 







3047 

715566 

022767 

040200 

163014 


CMP 

3048 

715574 

001401 




BEO 

3049 

215576 

104004 




HUT+4 

3050 







3051 

215600 

005767 

163006 



TST 

3052 

215604 

001401 




BEO 

3053 

215606 

104004 




HUT+4 

3054 







3055 

215610 

022767 

107070 

162776 


CMP 

3056 

215616 

001401 




BEO 

3057 

215620 

104006 




HUT+6 

3058 







3059 

215622 

022767 

070707 

162766 


CMP 

3060 

215630 

001401 




BEO 

3061 

215632 

104006 




HI.T+6 

3062 







3063 

215634 

122767 

000072 

163136 

END72I 

CMPB 

3064 

215642 

001401 




BEO 

3065 

215644 

104000 




hut 

3066 







3067 

715646 

104400 




SCOPE 

3068 







3069 

215650 

012767 

000377 

000264 

* 

MOV 

3070 

215656 

012737 

000062 

000060 


MOV 

3071 

715664 

005037 

000062 



CUR 

3072 
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R0i SSP 

#204| SPSW 

, *4 

JSAVE STACK POINTER 
ICWECK PS AFTER INTERUPT 

1 A K»ru T P 

IPS after interupt not E9UAU TO UVUA 

«STACK0|SSP 

,*4 

jCHECK THE STACK POINTER (R0) 
jBRANCH IF OK 

iSTACK pointer (R0) not equal to #STACK0 

#RTA72| ansi 
,♦4 

/CHECK FIS TRAP return ADDRESS 
/BRANCH IF OK 

/FIS TRAP AT WRONG ADDRESS 

#111, ANS2 

,*4 

/CHECK PS BEFORE INTERUPT 
/BRANCH IF OK 

IPS AT interupt time N0T 111 

#040200, ANS3 

,♦4 

/CHECK DATA FROM THE STACK 
/BRANCH IF OK 

/DATA ON STACK (040200) CHANGED 

ANS4 

,44 

/check data from STACK 
/BRANCH IF OK 

/DATA ON stack (000000) changed 

#107070, ANS5 

/CHECK DATA FROM STACK 
/BRANCH IF OK 

lOAT* ON STACK U07070) CHANGED 

#070707, ANS6 
,♦4 

/CHECK DATA FRQM STACK 
/BRANCH IF OK 

/DATA ON STACK <0707071 CHANGED 

#72, ISNT 

,*4 

/CHECK THE TE5T NUMBER 
/BRANCH IF OK 

/WRONG TEST! PC MUST HAVE FOUtED UP, 

#377, times 

#62, ##60 
9#62 

/RESET number OF ITERATIONS 
IRCSTORE tty INTERUPT VECTOR 
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D8KEAA.PU BELL AND SCOPE ROUTINE 


3073 

015670 

000240 



DONE i 

NOP 


3074 

015672 

B32737 

002000 

177570 


BIT 

#SW10,P#SWR 

3075 

015700 

001002 




8NE 

1$ 

3076 

715702 

000004 

000007 



TYPE 

*bell 

3077 

715706 

005046 



1$: 

clr 

»(6) 

3078 

715710 

032737 

010000 

177570 


BIT 

4SW12|PPSWR 

3079 

715716 

001010 




BNE 

2$ 

3080 

715720 

005167 

000056 



COM 

,tbit 

3081 

715724 

100005 




BPL 

2S 

3082 

715726 

052716 

000020 



BIS 

P20I (6) 

3083 

715732 

012746 

015764 



MOV 

43S,.(6) 

3084 

715736 

000002 




RTl 


3085 

215740 

012746 

015746 


2S: 

MOV 

44S,>(6) 

3086 

215744 

000002 




RTl 


3087 

215746 

013700 

000042 


45: 

MOV 

»«42,R0 

3088 

715752 

001404 




8E0 

3S 

3089 

715754 

004710 




JSR 

7|{0) 

3090 

715756 

000240 




NOP 


3091 

715760 

000240 




NOP 


3092 

715762 

000240 




NOP 


3093 

715764 

062767 

000001 

163014 

35: 

ADO 

4liPASSES*f 

3094 

715772 

005567 

163006 



ADC 

PASSES 

3095 

715776 

000137 

000200 



JMP 

*#200 

3096 








3097 

716002 

000000 



.TBITI 

0 


3098 








3099 

716004 

000006 



YESRTI 

RTT 


3100 

716006 

032737 

000400 

177570 

SCOPES: 

BIT 

«SW08|9«SWR 

3101 

716014 

001404 




BEO 

IS 

3102 

716016 

123767 

177570 

162754 


CMPB 

P#SWR| ICNT 

3103 

716024 

001434 




BEQ 

OVERS 

3104 

716026 

032737 

040000 

177570 

IS: 

BIT 

#SW14|P«SMR 

3105 

716034 

001026 




BNE 

KITS 

3106 

716036 

032737 

004000 

177570 


BIT 

#SW11,P#SWR 

3107 

716044 

001012 




BNE 

SVLADS 

3108 

716046 

105767 

162727 



TSTB 

icnt*i 

3109 

716052 

001404 




BEQ 

2S 

3110 

716054 

126767 

000062 

162717 


CMPB 

times, ICNT*1 

3111 

716062 

001013 




BNE 

KITS 

3112 

716064 

112767 

000001 

162707 

2St 

MOVB 

#ll ICNT4.i 

3113 

716072 

105267 

162702 


SVLADS! 

INCB 

ICNT 

3114 

716076 

011667 

000036 



MOV 

(6), LADS 

3115 

716102 

016737 

162672 

177570 


MOV 

1CNT,P#DI splay 

3116 

716110 

000002 




RTI 


3117 








3118 

716112 

105267 

162663 


KiTS: 

INCB 

ICNT+1 

3119 

716116 

016737 

162656 

177570 

OVERSI 

MOV 

ICNT,P#01SPLAY 

3120 

716124 

005767 

000010 



TST 

LADS 

3121 

716130 

001760 




BEO 

SVLADS 

3122 

716132 

016716 

000002 



MOV 

LADS, (6) 

3123 

716136 

000002 




RTI 


3124 








3125 

716140 

000000 



lads: 

0 


3126 

716142 

000377 



TIMES! 

377 



iRING the bell? 
JNO! 


I'CLEAR TRACE TRAP 
iRUN WJTH TRT7 


ISET trace trap 
IJUMP TO START OF TEST 

jJUNP TO START OF TEST 
IRETURN 

JGET MONITOR ADDRESS 

Ijr NONE 

ICO TO MONITOR 


I |NC PASS COUNTER 
jRETURN 


IRCTURN FROM TRACE TRAP 

IKILL lOUB OR LOOP ON SPEC*, TEST 

jON right TEST? *SW7*0* 

ILOOP ON test 

ikill iterations 


IBRANCH IF FIRST 
jOONE? 

jBRANCH IF NOT 
IFIRST iteration 
I COUNT TEST numbers 
ISAVC LOOP ADDRESS 

lOlsPLAY test nq, and iteration count 
iRETURN 


I'SET UP DISPLAY 
jFIRST ONE? 

jFUDGE RETURN ADDRESS 
iFIXrS PS 

(LOOP address 
(RUN 377 TIMES 



MAINOE 

DBKEAA 

3127 

3128 

3129 
313? 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3130 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 
3176 
3179 
3160 
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^ll PUSH AND POP subroutines 


716144 

005726 


{SUBROUTINE 
PUSHSI TST 

716146 

062705 

000310 

ADD 

716152 

014546 


MOV 

216154 

014546 


MOV 

216156 

014546 


MOV 

716160 

014546 


MOV 

716162 

062705 

000010 

ADO 

216166 

012537 

177776 

MOV 

216172 

012577 

162452 

MOV 

216176 

012577 

162450 

MOV 

216202 

000115 


JHP 


TO PUSH 4 WORDS ONTO THE STACK 


<SP>* 


{POP stack by 1 

410. 

R5 

{POINT TO END OF DATA 

»(R5> , 

• tSP) 

{PUSH data onto THE STACK 

*(R5)i 

«CSP5 

{PUSH data onto THE STACK 

•(R5), 

• <SP) 

{PUSH DATA ONTO THE STACK 

»(R5), 

TS(SP) 

{PUSH DATA ONTO THE STACK 

410. 

R5 

{POINT TO END OF DATA 

(RS)*, 

^#PS 

{SET THE PROCESSOR STATUS 

(R5)*, 

^PISVEC 

{SET UP FIS ERROR TRAP VECTOR 

(R5)*i 


{TRAP STATUS 

<R5) 


{RETURN 


JSUBROUTINE TO POP 2 WORDS OFF ThE STACK 

jAtSO SAVES THE PROCESSOR STATUS WORD (EXCEPT T SJT) 


716204 

013767 

177776 

162366 pops: 

MOV 

246212 

042767 

000020 

162360 

SIC 

216220 

012604 



MOV 

246222 

012667 

162356 


MOV 

216226 

012667 

162354 


MOV 

216232 

010667 

162344 


MOV 

216236 

000114 



JMP 


P4PS, 

SPSW 

{SAVE processor STATUS WORD 

420. 

SPSW 

{CLEAR T»BIT 

(SP)+, 

R4 

{SAVE RTS ADDRESS 

(SP)*, 

ANSI 

{SAVE THE ANSWER 

(SP)*| 

ANS2 

1 

SP, 

SSP 

{SAVE The stack pointer 

<R4) 


(RETURN 


216240 013767 
216246 012604 
216250 012667 
216254 011667 
216260 042767 
h6266 012746 
?16272 000002 
?16274 012667 
516300 012667 
516304 012667 
516310 312667 
516314 010667 
716320 000114 


fl6322 012704 
? 16326 312524 
P16330 012524 
ei6332 012524 
716334 012524 


ISUBROUTNE to pop 6 WORDS OFF THE STACK', 

ITHE FIRST TWO WERE PUT ON BT THE ERROR TRAP# 
»THE LAST FOUR WERE THE ORIGINAL INPUT DATA, 

. jm. ^ A it mm m* wita* AAVkiMiBei’ 




ialso 

SAVES THE 

PS AND 

STACK 

pointer, 


177776 

162332 

POPES 1 

MOV 

PPPS. 

SPSW 

{SAVE PROCESSOR STATUS 

WORD 




MQV 

(SP)4>, 

R4 

(SAVE RTS ADDRESS 


162330 



MOV 

(SP)*| 

ANSI 

{'SAVE RTI ADDRESS 


162326 



MOV 

(SP), 

ANS2 

(SAVE RTI STATUS 


000020 

162320 


BIC 

420, 

ANS2 

{CLEAR THE T-BIT 


016274 



MOV 

41* , 

• <SP) 






RTI 



(RESTORE THE PROCESSOR 

STATUS 

162310 


IS: 

MOV 

(SP)*, 

ANS3 

(SAVE data 


162306 



MOV 

(SP)*, 

ANS4 

{ 


162304 



MOV 

(SP)*, 

ANS5 

{ 


162302 



MOV 

(SP)*, 

ANS6 

{ 


162262 



MOV 

SP, 

SSP 

(SAVE SP 





JMP 

(R4) 


(RTS 



{SUBROUTINE TO PUSH 4 WORDS ONTO THE STACK 


000630 

PUSHRf MOV 

4STACK0 

,R4 

I'SIT 

R4 TO STACK 

MOV 

(R5)*, 

(R4)* 

IPUT 

DATA ON STACK 


MOV 

<R5)*, 

(R4)* 

1 



MOV 

<R5)*, 

(R4)* 

1 



MOV 

(R5)+, 

(R4)* 

1 




maindC^ 


KEliP 

(PDP-11 1 

■IS) INSTRUCTIi 

DBKEAA. 

PU 

BELL AND SCOPE 

ROUTINE 



3073 

M5670 

000240 



DONE! 

NOP 

3074 

015672 

032737 

002000 

177570 


BIT 

3075 

015/00 

001002 




BNE 

3076 

015702 

000004 

030007 



TYPE 

3077 

215706 

305046 



1$: 

CLR 

3078 

015710 

032737 

310000 

177570 


BIT 

3079 

015716 

001010 




BNE 

3080 

215720 

005167 

000056 



COM 

3081 

015724 

100005 




BPL 

3062 

015726 

052716 

000020 



BIS 

3083 

015732 

012746 

015764 



MOV 

3084 

015736 

000002 




RTI 

3085 

015740 

012746 

015746 


2$! 

MOV 

3086 

015744 

000002 




RTI 

3087 

015746 

013700 

000042 


4$: 

MOV 

3088 

015752 

001404 




BEO 

3089 

015754 

004710 




JSR 

3090 

015756 

000240 




NOP 

5094 

015760 

000240 




NOP 

3092 

015762 

000240 




NOP 

3093 

015764 

062767 

000003 

163014 

3S! 

ADO 

3094 

015772 

005567 

163006 



ADC 

3095 

015776 

000137 

000200 



UMP 

3096 







3097 

016002 

000000 



.TBITI 

0 

3090 







3099 

016004 

000006 



YESRTI 

RTT 

3100 

016006 

032737 

000400 

177570 

SCOPES! 

BIT 

3101 

016014 

001404 




BEO 

3102 

016016 

123767 

177570 

162754 


CMPB 

3103 

016024 

001434 




BEO 

3104 

016026 

032737 

040000 

177570 

IS! 

BIT 

3105 

016034 

001026 




BNE 

3106 

016036 

032737 

004000 

177570 


BIT 

3107 

016044 

001012 




BNE 

3108 

016046 

105767 

162727 



TSTB 

3109 

016052 

001404 




BEO 

3110 

016054 

126767 

000062 

162717 


CMPB 

3111 

016062 

001013 




BNE 

3112 

016064 

112767 

000001 

162707 

2St 

MOVB 

3113 

016072 

105267 

162702 


SVLADSi 

INCB 

3114 

016076 

011667 

000036 



MOV 

3115 

016102 

016737 

162672 

177570 


MOV 

3116 

016110 

000002 




RTI 

3117 







3118 

016112 

105267 

162663 


KITS! 

INCB 

3119 

016116 

016737 

162656 

177570 

OVERS 1 

MOV 

3120 

016124 

005767 

000010 



TST 

3121 

016130 

001760 




BEO 

3122 

016132 

016716 

000002 



MOV 

3123 

016136 

000002 




RTI 

3124 







3125 

016140 

000000 



LADS! 

0 

3126 

016142 

000377 



TIMESI 

377 


TESTS. 
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#SW10,9#SWR |R!NG the BEUL,7 

1$ INO! 

|6EUL 

»(6) ICLEAR TRACE TRAP 

#SWi2,9(»SWP iRUN WITH TRT7 

2$ 

,T81T 

2S 

#20,(6) JSET TRACE TRAP 

#3S,-(6> IJUMP TO START OF TEST 

#4S,-(6> lJUMP TO START OF TEST 

iRfTURN 

»#42,R0 ICET MONITOR ADDRESS 

3S IIP NONE 

7,(0) I'Ce TO MONITOR 


#1,PASSES*2 I INC PASS COUNTER 

PASSES 

R#200 IRCTURN 


IRETURN from TRACE TRAP 

#SW08,P#SWR IKILI LDUB OR I.OOP ON SPEC', TEST 
IS 

*#SWR,ICNT lON RIGHT TEST? •SW7»0* 

OVERf 

#SW14,P#SWR |i,eOP ON TEST 

KITS 

#SWU,R#SWR IKUI ITERATIONS 

SVLAOS 

ICNT*l 

2S I0RANCH IF FIRST 

times, ICNT* 1 lOONCI 

KITS ISRANCH IF NOT 

FtilCNT+l IFIRST iteration 

icnt iceuNT TEST numbers 

(6), LADS ISAVE LOOP ADDRESS 

ICNT,P#DI5PLAY iDISPLAY TEST NO, AND ITERATION COUNT 
iRETURN 

ICNT*1 

ICNT,P#0ISPLAY tSET UP DISPLAY 
LADS jFIRST ONE? 

SVLAOS 

LAOS, (6) IFUDCE RETURN ADDRESS 

IFIXFS PS 


I LOOP address 
iRUN 377 TIMES 
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DBKEAA.Pji PUSH ANQ POP SUBROUTINES 


3127 

3128 

3129 


}SUBROUTINE TO PUSH 4 WORDS ONTO THE STACK 


3130 

716144 

305726 


PUSHSI TST 

3131 

716146 

062735 

000010 

ADO 

3132 

716152 

014546 


MOV 

3133 

716154 

014546 


MQV 

3134 

716156 

014546 


MOV 

3135 

716160 

014546 


MOV 

3136 

716162 

062705 

000010 

ADO 

3137 

716166 

012537 

177776 

MOV 

3138 

716172 

012577 

162452 

MQV 

3139 

216176 

012577 

162450 

MOV 

3140 

716202 

000115 


JMP 

3141 

3142 

3143 

3144 

3145 

3146 

716204 

013767 

177776 

»subroutine 

JAUSO SAVES 
162366 pops: MOV 


3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 
3176 

3179 

3180 


716212 

716220 

016222 

216226 

216232 

216236 


042767 

012604 

012667 

012667 

010667 

000114 


300020 162360 

162356 

162354 

162344 


BIC 

MQV 

MOV 

MOV 

MOV 

JMP 


(SP)* 

4101 

-<R5)i 

•(R5), 

•(R5), 

»<R5) , 

#101 
(R5)+, 
(R5)*, 
( R5 ) *1 
<R5> 


9»PS, 

#201 

(SP)+i 

(SP)*, 

ISP)*| 

SP| 

(R4) 


IPOP stack by i 

R5 JPOINT TO END OF DATA 

-ISP) (PUSH data ONTO THE STACK 

•ISP) JPUSH DATA ONTO THE STACK 

•(SP) iPUSH data onto THE STACK 

»{SP) .iPUSH DATA ONTO THE STACK 

R5 IPOINT TO ENO OF DATA 

SipPS }SET THE PROCESSOR STATUS 

9FISVEC ISET UP FJS ERROR TRAP VECTOR 
PFtSLVl. iTRAP STATUS 
iRETURN 


SPSW iSAVE processor STATUS WORD 

SPSW ICLEAR T-BIT 

R4 jSaVE RTS ADDRESS 

ANSI iSAVE THE ANSWER 

ANS2 I 

SSP iSAVE The stack pointer 

IRETURN 


ISUSROUTNE TO POP 6 WORDS OFF THE STACK, 

JTHE first two were put on BY THE ERROR TRAPi 
JTHE LAST FOUR WERE THE ORIClNAL INPUT DATA, 

I ALSO SAVES THE PS AND STACK POINTER', 


216240 

216246 

216250 

216254 

216260 

216266 

216272 

216274 

216300 

216304 

216310 

216314 

216320 


216322 

216326 

216330 

216332 

216334 


013767 

012604 

012667 

011667 

042767 

012746 

000002 

012667 

012667 

012667 

012667 

010667 

000114 


012704 

012524 

012524 

012524 

012524 


177776 162332 


162330 

162326 

000020 

016274 

162310 

162306 

162304 

162302 

162262 


000630 


162320 


POPESI 

MOV 

»PPS# 

SPSW 

iSAVE PROCESSOR STATUS 


MOV 

(SP)*| 

R4 

iSAVE RTS ADDRESS 


MQV 

{SP)*| 

ANSI 

jSAVE RTl ADDRESS 


MOV 

( SP ) , 

ANS2 

iSAVE RTl STATUS 


BIC 


ANS2 

iCLEAR THE T»B|T 


MOV 

Pl»i 

• ISP) 



RTl 



IRISTORE THE PROCESSOR 

IS) 

MOV 

{SP}*, 

ANS3 

ISAVE DATA 


MOV 

{SP}*, 

ANS4 

) 


MOV 

(SP)T., 

ANS5 

1 


MOV 

( SP ) 4| 

ANS6 

i 


MOV 

SP, 

SSP 

iSAVE SP 


JMP 

(R4) 


IRTS 

;SUSR0UTINE TO 

PUSH 4 WORDS ONTO 

1 THE stack 

PUSHRI 

MOV 

ASTACK0 

,R4 

iSET R4 TO STACK 


MOV 

<R5>+, 

(R4)* 

iput data on stack 


MOV 

<R5)4., 

(R4)* 

I 


NOV 

<R5)+, 

(R4)* 

1 


MOV 

(R5>+, 

(R4)* 

1 



MAINDEC-H-DBKEA-A 
DBKEAA.Pll PgSH AND 

3181 ?16336 212537 

3182 ? 16342 012577 

3183 016346 012577 

3184 016352 000235 

3185 

3186 

3187 

3188 

3189 

3190 016354 013767 

3191 016362 042767 

3192 016370 016767 

3193 P 16376 016767 

3194 716404 000207 

3195 

3196 

3197 
3196 

3199 

3200 

3201 

3202 016406 013767 

3203 ei6414 012667 

3204 016420 012667 

3205 016424 011667 

3206 016430 042767 

3207 P16436 012746 

3208 216442 000002 

3209 016444 016767 

3210 016452 046767 

3211 016460 016767 

3212 016466 016767 

3213 216474 000137 

3214 016476 000000 

3215 

3216 

3217 

3218 016500 012504 

3219 016502 012524 

3220 016504 012524 

3221 016506 012524 

3222 016510 012524 

3223 016512 042737 

3224 016520 352537 

3225 016524 012577 

3226 016530 012577 

3227 016534 000205 

3228 

3229 

3230 

3231 

3232 016536 013767 

3233 016544 042767 

3234 016552 011600 
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POP subroutines 


177776 


MOV 

(R5)*, 

(»#PS 

{SET the PROCESSOR STATUS 

162302 


MOV 

<R5)+, 

fFlSVEC 

{SET UP FIS ERROR TRAP 

VECTOR 

162300 


MOV 

(R5)*, 

»fislvu 

{TRAP STATUS 




RTS 

R5 


{RETURN 




{Subroutine 

TO POP 2 WORDS OFF THE STACK 




{ALSO SAVES 

THE PROCESSOR STATUS 

WORD (EXCEPT T BIT) 


177776 

162216 

POPR! MOV 

«*i»PS, 

SPSW 

{'SAVE PROCESSOR STATUS 

WORD 

000020 

162210 

B]C 

#?0. 

SPSW 

IC1.EAR T-BIT 


162240 

162206 

MOV 

STACK4, 

ANSI 

{SAVE the answer 


162234 

162202 

MOV 

STACK6, 

ANS2 

1 




RTS 

X7 





)SUBR0UTNE to pop 6 WOROS OFF THE STACKS, 




{The two off 

THE R6 STACK WERE PUT ON BY THE ERROR TRAPi 



{THE FOUR OFF THE SOFTWARE STACK 

WERE THE ORlGlNAi INPUT DATA 



{ALSO SAVES 

THE PS ANp 

STACK POINTER AFTER THE FlS TRAP, 

177776 

162164 

POPEPI MOV 

PiPS, 

SPSW 

{SAVE PROCESSOR STATUS WQRO 

000056 


POPERU MOV 

«SP)*i 

SAVRTS 

{SAVE RTS ADDRESS 

162160 


MOV 

(SP)4, 

ANSI 

{SAVE RTI ADDRESS 

162156 


MOV 

(SP), 

ANS2 

{SAVE RTI STATUS 

000020 

162150 

BIC 

#20, 

ANS2 

{CLEAR THE T«BIT 

016444 


MOV 


• «8P) 




PTJ 



{RESTORE PROCESSOR STATUS 

162160 

162136 

IS! MOV 

5TACK0, 

ANS3 

{SAVE DATA 

162154 

162132 

MOV 

STACK2, 

ANS4 

1 

161150 

162126 

MOV 

STACK4, 

ANS5 

1 

16214^ 

162122 

MOV 

STACK6| 

ANS6 

1 



JMP 

• U7)* 


{■SIMUI.ATIO RTS 



SAVRTS! 0 



{'RTS ADDRESS SAVE 



{SUBROUTINE 

TO PUSH 4 WORDS ONTO 

THE PC STACK 



PUSH7I MOV 

(R5)+, 

R4 

ISET R4 TO STACK 



MOV 

(R5)*, 

(R4)* 

{PUT DATA ON STACK 



MOV 

( R5 ) + 1 

(R4)* 

I 



MOV 

(R5)+, 

(R4)* 

1 



MOV 

(R5>+, 

(R4)* 

{ 

177757 

177776 

BIC 

#177757 

,P#PS 

{CLEAR status EXCEPT T-BIT 

177776 


BIS 

(R5)+, 

P«PS 

{SET THE PROCESSOR STATUS 

162120 


MOV 

(R5)4, 

PFISVEC 

{SET UP FIS error trap VECTOR 

162116 


MOV 

(R5)*, 

PFISUVI, 

{TRAP STATUS 



RTS 

R5 


{RETURN 



{SUBROUTINE 

TO POP 4 WORDS OFF THE PC "STACK" 



{ALSO SAVES 

THE PROCESSOR STATUS 

i WORD (EXCEPT T BIT) 

177776 

162034 

P0P7! MOV 

PAPS, 

SPSW 

{SAVE processor status WORD 

W3 00020 

162026 

BIC 

#20, 

SPSW 

{CLEAR T-BIT 



MOV 

(SP), 


{GET RETURN ADDRESS 



mainoic- 
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TESTS, MACYll', 
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OBKEAA.Pil 

PUSH ANO POP subroutines 




323^ 

Z 1655 4 

162700 

000014 



SUB 

414, R0 

JPOINT TO TOP OF "PC STACK" 

3236 

?16560 

312067 

162020 



MOV 

(R0>+, ANSI 

ISAVE 1ST HAUF INPUT DATA 

3237 

? 16564 

C12067 

162016 



MOV 

(R0)+, ANS2 

iSAVE 2ND HAUF INPUT DATA 

3238 

^16570 

010067 

162006 



MOV 

R0, SSP 

iSAVE ASSUMED END PC "STACK POINTER" 

3239 

? 16574 

012067 

162010 



MOV 

(R0)+, ANS3 

iSAVE 1ST hale or ANSWER 

3240 

?16600 

212067 

162006 



MOV 

(R0)+, ANS4 

jSAVE 2ND HAUF OF ANSWER 

3241 

716604 

003207 




RTS 

87 


3242 









3243 





lERRONIOUS TRAP 

SERVICE ROUTINE 


3244 

3245 

016606 

104000 



trapert 

HUT 


IFIS SHOULDN'T HAVE TRAPED 

3246 

016610 

000002 




RTl 



3247 









3248 

016612 

332737 

002000 

177570 

HI.T51 

BIT 

i»SW10,!?#SWR 

jBEUL ON ERROR? 

3249 

016620 

001402 




BEO 

IS 

INO - SKIP 

3250 

216622 

000004 

000007 



TYPE 

,BEUL 

)R!NC BELL 

3251 

016626 

005267 

162150 


iSS 

INC 

errors 

ICOUNT THE NUMBER OF ERRORS 

3252 

016632 

032737 

020000 

177570 


BIT 

4SW13,®#SWR 

jSKlP TYPEOUT IF SET 

3253 

016640 

001017 




BNE 

2S 

ISKIP TYPEOUTS 

3254 

016642 

000004 

017440 



TYPE 

, RETURN 


3255 

016646 

011667 

000060 



MOV 

(6), HUT ADS 

jPUT address of INSTRUCTION ON STACK 

3256 

016652 

162767 

000002 

000052 


SUB 

(»2,HUTADS 


3257 

016660 

016705 

000046 



MOV 

hut ADS, TTY 

IType hutads in octal 

3258 

016664 

004767 

000106 



JSR 

X7,PRINTR 

iTVPE LEADING ZEROES 

3259 

016670 

000004 

017446 



TYPE 

,SPACE*3 


3260 

016674 

004767 

000034 



JSR 

PC, ERRORS 

i5o TO user error routine 

3261 

016700 

005737 

177570 


2$ : 

TST 

•#SWR 

IHAUT on error 

3262 

016704 

100001 




BPU 

,*4 

iSKiP IF CONTINUE 

3263 

016706 

000000 




HAUT 


IHAUT ON ERROR! 

3264 

016710 

032737 

001000 

177570 


BIT 

#SW09,*lllSMR 

iCHECK FOR INHIBIT LOOP ON ERROR 

3265 

016716 

001001 




BNE 

,*4 

iSKIP IF LOOP ON ERROR 

3266 

016720 

000002 




RTl 



3267 

016722 

105067 

1620S3 



CURB 

ICNT+l 


3268 

016726 

000167 

177160 



JMP 

KITS 

lUOOP ON TEST UNTIL NO ERRORS 

3269 









3270 

016732 

000000 



HUT ADS! 

0 



3271 

3272 

016734 

117767 

177772 

000032 

ERRORS! 

movb 

SHUTADS, TYPCNT 

iTYPE COUNT IS LOW BYTE OF HuT 

3273 

016742 

105267 

000026 



INCB 

TYPCNT 

iTYPE COUNT » X+1 

3274 

016746 

012705 

000600 



MOV 

iSPSW, R3 

ITOP OF DATA TO BE TYPED 

3275 

016752 




ERRISI 




3276 

016752 

012305 




MOV 

(R3)4,TTY 

ITYPE (R3)* IN OCTAL 

3277 

016754 

004767 

000016 



USR 

X7,PRINTR 

iTYPE Leading zeroes 

3278 

016760 

000004 

017447 



TYPE, 

SPACE*4 

1 SPACE 

3279 

016764 

105367 

000004 



DECS 

TYPCNT 

iCHECK FOR DONE 

3280 

016770 

100370 




BPU 

ERRlS 

IBRANCH IF NOT DONE 

3281 

016772 

000207 




RTS 

PC 


3282 









3283 

016774 

000000 



TYPCNT! 

0 




o 






V y 
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MAInDEC-H- 09KEA«A KEll^ <PDP«il FIS) INSTRUCTION TESTSt 

OBKEAA.Pll OCTAL. DUMP OF A WORD S. 18 BIT ADDRESS TYPER 


3284 

016776 

112767 

000001 

000130 

PRINTR: 

MOVB 

Pli.PR 

3288 

;17004 

000402 




BR 

,*6 

3286 

71737I6 

005067 

000122 


PRINTS: 

CLR 

,PR 

326 7 

?17012 

112767 

177772 

000115 


MOVB 

#•6, ,PR*1 

3288 

?17020 

010446 




“OV 

R4,.(6) 

3289 

717022 

012704 

•217124 



MOV 

#,PRBUF|R4 

3290 

717026 

105014 




CLRB 

(4) 

329X 

717030 

000405 




BR 

,PRF 

3292 

717032 

105014 



.PRL! 

CLRB 

(4) 

3293 

717034 

006105 




ROL 

TTY 

3294 

717036 

106114 




ROLB 

(4) 

3295 

717040 

006105 




ROL 

TTY 

3296 

717042 

106114 




ROLB 

(4) 

3297 

717044 

006135 



,PRFS 

ROL 

TTY 

3298 

717046 

106114 




ROLB 

(4) 

3299 

717050 

105714 




TSTB 

<4) 

3300 

717052 

001402 




BEQ 

,*6 

3301 

717054 

105267 

000054 



INCB 

,PR 

3302 

? 17060 

105767 

000050 



TSTB 

.PR 

3303 

717064 

001402 




BEO 

,*6 

3304 

717066 

152724 

000060 



BISB 

#'0| <4>* 

3305 

717072 

105267 

000037 



INCB 

,PR*1 

3306 

717076 

001355 




6NE 

,PRL 

3307 

717100 

022704 

017124 



CMP 

P.PRBUFiRA 

3308 

717104 

001002 




8NE 

1 4>6 

3309 

717106 

112724 

000060 



MOVB 

P'0, (4)* 

3310 

717112 

105014 




CLRB 

(4) 

3311 

717114 

000004 

. 017124 



TYPE 

, ,PRBUF 

3312 

717120 

012604 




MOV 

(6>+,R4 

3313 

717122 

000207 




RTS 

PC 

3314 








3315 

717124 

000004 



.PRBUFS 

,BLKW 

4 

3316 

717134 

000000 



,PR: 

0 



SET ZERO PIUI, SWITCH 
SKIP 

SUPPESS LEADING 2ER0»S 
SET COUNT 
SAVE R4 

SET POINTER TO FIRST ASCII CHAR, 
CLEAR FIRST BYTE 

rotate first bit 

CLEAR BYTE OF CHARACTER 
ROYATr BIT INTO C 
PACK IT 

rotate bit INTO C 
PACK IT 

ROTATE BIT INTO C 
PACK IT 
IS IT EERO? 

SKIP INC 

SET FILL SWITCH 

CHECK fill SWITCH 

SKIP 8ITSET 

MAKE INTO ASCII CHAR 

INC COUNT 

REPEAT 

EMPTY BUFFER? 

SKIP IF NOT 
LOAD i 2ER0 
NULL terminator 
TYPE IT 
RESTORE RA 
return 

OUTPUT BUFFER 
COUNT AND SWITCH 



MACYll, 


HAINDEC-U-D3KEA-A KEUf (POP'll HS) INSTRUCTION TESTS. 

DBKEAA.PU opWER OO^N AND UP ROUTINES 


3317 

?17i36 

312777 

017304 

000154 

POOWNS: 

MOV 

#ILLUP,PPUVEC$ 

3318 

017144 

312777 

003340 

000150 


HOV 

#340,PPUVEC$*2 

3319 

f 17152 

317767 

161476 

000132 


MOV 

PTPS, SAVTPS 

3320 

017160 

3 1010 4 6 




MOV 

R0,-(6) 

3321 

017162 

313146 




MOV 

Rt,*{6) 

3322 

017164 

313246 




MOV 

R2 , « ( 6 ) 

3323 

017166 

313346 




MOV 

R3,-(6) 

3324 

017170 

310446 




MOV 

R4 , • ( 6 ) 

3325 

017172 

310546 




MOV 

R 5 , ■ ( 6 ) 

3326 

017174 

310667 

000110 



MOV 

SP, ,SAVR6 

3327 

017200 

312777 

017210 

000112 


MOV 

PPUPf ,PPUVECS 

3328 

017206 

000000 




halt 


3329 








3330 

017210 

016706 

000074 


PUPS! 

MQV 

,SAVR6,SP 

3331 

017214 

305001 




CLR 

R1 

3332 

017216 

005201 



IS ! 

INC 

R1 

3333 

017220 

301376 




3NE 

IS 

3334 

017222 

312605 




MQV 

{6)4-,R3 

3335 

017224 

312604 




MOV 

(6)+#R4 

3336 

017226 

012603 




MOV 

(dl't'tRS 

3337 

017230 

012602 




MOV 

(6>*,R2 

3338 

017232 

012601 




MOV 

{6)+»Ri 

3339 

017234 

012600 




MOV 

(6)*,R0 

3340 

017236 

012777 

017136 

000050 


MOV 

«PDOWNS,PROVECS 

3341 

017244 

012777 

000340 

000044 


MOV 

»340,»POVEQS*2 

3342 

017252 

000004 

017324 



TYRE 

, POWERS 

3343 

017256 

032767 

000100 

000026 


bit 

#100, SAVTPS 

3344 

017264 

001406 




8E0 

2S 

3345 

017266 

012777 

000100 

161360 


MOV 

#100, pTPS 

3346 

017274 

012777 

000100 

161354 


MOV 

#1001 RTPe 

3347 

7 ^ a 

017302 

000002 



2S: 

RTI 


3348 

3349 

017304 

000000 



ILLUPI 

halt 


3350 

017306 

000776 




BR 

1*0 

3351 








3352 

017310 

000000 



,SAVR6! 

0 


3353 

017312 

000000 



SAVTPS! 

0 


3354 

017314 

000024 

000026 


POVECSS 

24,26 


3355 

0i732£l 

000024 

000026 


pgvEcu 

24,26 


3356 

017324 

005015 

047520 

042527 

POWERS: 

, ASCII 

<15><12>"P0WER« 

3357 

? 17332 

000122 






3358 






.EVEN 
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SET FOR FAST UP 
PRi0l7 

SAVE teleprinter STATUS 
PUSH R0 ON STACK 
PUSH Rl ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
SAVE SP 
SET UP VECTOR 


GET SP 

WAIT LOOP FOR THE TTV 
WAIT FOR the INC 
OP A WORD 
POP stack INTO R5 
POP stack into R4 
POP stack into R3 

POP stack into R2 

POP stack into Ri 

POP stack into rj 

set gp THE POWER DOWN VECTOR 

PRIOI? 

CHECK INT ENS BIT 
BRANCH IP NOT 
SET INT ENB 
TYPE AN 


|T«E POWER UP SEQUENCE WAS STARTED 
I BEFORE THE POWER DOWN WAS COMPLETE 

IPUT THE SP HERE 

ILOC TO SAVE teleprinter STATUS 

IPOWER DOWN VECTOR 

ipower up vector 







H4INDEC 

-ll-DBKEA-A 

KEllf 

tPDP'll 
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TESTS, MACYlf, 

620 21*AUG»72 12(07 PAGE 7l 

O0KEAA, 

PU 

TYPE routine; 






3359 

?17334 

i’10546 



. lOT! 

MOV 

TTY,-(6> 

iSAVE TTY 

3360 

?17336 

?17625 

000002 



MQV 

592(6) iTTY 

ICET ADDRESS TO BE TYPED 

3361 

M7 342 

332725 

177400 



BIT 

#177400, TTY 

1 IS IT A TYPEH? 

3362 

717346 

201004 




BNE 

IS 

INO 

3363 

217352 

210567 

300076 



MOV 

TTY, .TYPE 

IGFT the CHARACTER 

3364 

717354 

312705 

017452 



MOV 

#, type, TTY 

IPUOGE the ADDRESS 

3365 

217360 

105715 




TSTB 

(TTY) 

ITEHMINATOR? 

3366 

717362 

201406 




8EQ 

2S 

(GET OUT IP SO 

3367 

717364 

112537 

177566 



MOVB 

(TTY)*,«*<»t77566 

lUOAD AND TYPE THE CHARACTER 

3368 

717370 

105737 

177564 



TSTB 

»#177564 

)IS THE PRINTER READY 

3369 

217374 

100375 




BPl 

, b4 

(WAIT UNTIU IT IS 

3370 

717576 

000770 




8R 

IS 

(GET THE NEXT CHARACTER 

3371 

217400 

017646 

000002 


2Ss 

NQV 

5>2(6)||*(6} 

jGET address to be TYPED 

3372 

217404 

262766 

000002 

000004 


ADO 

#2,4(6) 

)ADO 2 TO THE ADDRESS 

3373 

217412 

222666 

000002 



CMP 

(6)*, 2(6) 

llS IT ,*2f 

3374 

717416 

001006 




BNC 

3$ 

iNO 

3375 

217420 

062705 

000002 



ADO 

#2, TTY 

(ADD 2 TO THE ADDRESS 

3376 

717424 

242705 

000001 



BIC 

#liTTY 

IBACK UP TO AN EVEN BYTE 

3377 

217430 

010566 

000002 



MOV 

TTY, 2(6) 

(RESTORE ADDRESS 

3378 

217434 

212605 



3$: 

MOV 

(6)*, TTY 

IRESTORE tty 

3379 

217436 

200002 




RTl 


(RETURN 

3380 

3381 

217440 

005015 

000 


RETURN* 

lASCIi 

<15><12> 

(RETURN and UINEFEED 

3382 

217443 

015 

020012 

020040 

SPACEI 

lASCIi 

<15X12>" " 

(RETURN and 3 SPACES 

3383 

017450 

000 







3384 


017452 



.EVEN 




3385 

217452 

000000 



.TyPEI 

0 


(CHARACTER Type LOCATION 

3386 


000001 



.END 






MACYll 


MAINCEC-ii-OBKEA*A (PDP*U HS) INSTRUCTION TESTS, 

DBKEAA.Pil SYMBOL TABLE 


ANSI 

0?0604 

ANS2 

000606 

ANS3 

000610 

ANSS> 

0006:14 

ANS6 

000616 

BEGIN 

001010 

OISFLA 

= 177570 

DONE 

015670 

ENDl 

001240 

ENDll 

072554 

END12 

002700 

EN013 

003104 

EN015 

073346 

END16 

003560 

END17 

003706 

END 20 

074114 

EN021 

004242 

END22 

004366 

END24 

074634 

EN025 

005042 

END26 

005164 

EN03 

771506 

ENO30 

005524 

EN031 

005652 

END33 

076126 

END34 

006250 

END35 

006376 

END37 

706642 

END4 

001626 

END40 

006764 

END42 

2073J6 

EN043 

007526 

END44 

007650 

EN046 

710210 

END47 

010422 

ENOS 

001746 

END51 

010750 

END52 

011074 

EN053 

011306 

EN055 

011636 

EN056 

011776 

END57 

012136 

CND60 

012276 

EN061 

012436 

END62 

012646 

END67 

014372 

END7 

002222 

END70 

014744 

END72 

015634 

errors 

001002 

ERRORS 

016734 

f ADD 

= 075000 

roi V 

s 075030 

rjSLVL 

000652 

FMUL 

S 075020 

rsuB 

S 075010 

HIT 

s 104000 

HUTS 

016612 

ICNT 

001000 

lUUP 

017304 

1SA20 

004006 

1SA25 

004734 

ISA41 

007064 

ISA5i5 

011530 

ISA70 

014624 

ISA71 

015156 

ISRll 

002430 

1SR13 

002756 

ISR16 

003430 

ISR25 

004712 

ISR27 

005246 

ISR41 

007042 

ISR45 

007732 

ISR47 

010272 

ISR51 

010622 

ISR55 

011506 

1SR66 

014076 

ISR67 

014312 

ISR71 

015060 

ISR72 

015414 

KITS 

016112 

N 

s 000073 

OVERS 

016116 

PASSES 

001004 

PDOWNS 

017136 

POVECS 

017314 

PQPER 

016406 

POPES 

016240 

POPR 

016354 

POPS 

016204 

POWERS 

017324 

PRINTR 

016776 

PRINTS 

017006 

PUPS 

017210 

pgSHR 

016322 

PUSHS 

016144 

PVVECS 

017320 

return 

017440 

RTAU 

002414 

RTA16 

003414 

RTA20 

003750 

RTA25 

004676 

RTA41 

007026 

RTA43 

007364 

RTA45 

007716 

RTA31 

010606 

RTA53 

011142 

RTA55 

011472 

RTA67 

014274 

RTA70 

014520 

RTA71 

015052 

R0 

sk000000 

Rl 

s%000001 

n 

-%000002 

R4 

sj( 000004 

R5 

SX000005 

SAVRTS 

016476 

SCOPE 

= 104400 

SCOPES 

016006 

SP 

<%000006 

STACK0 

000630 

STACKl 

5 000631 

STACK2 

000632 

STACK6 

000636 

STACKS 

000640 

STK56 

011702 

STK60 

012202 

STK61 

012342 

SVLAPS 

016072 

SW08 

= 000400 

SW09 

S 001000 

SM10 

3 002000 

SW12 

s 010000 

SW13 

s 020000 

SW14 

s 040000 

TIMES 

016142 

TPB 

000656 

TPS 

000654 

TSA14 

003170 

TSA15 

003310 

TSA23 

004452 

TSA4 

001572 

TSA40 

006726 

TSA44 

007612 

TSA50 

010506 

Tsn 

001132 

TST10 

002236 

TST12 

002570 

TST13 

002714 

TST14 

003120 

TST16 

003362 

TST17 

003574 

TST2 

001254 

TST21 

374130 

TST22 

004256 

TST23 

004402 

TST23 

004650 

TST26 

005056 

TST27 

005200 

TST30 

005412 

TST31 

005540 

TST32 

005666 


n 

■s,., 




r 
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TST34 

006142 

TST35 

006264 

TST36 

006412 

TST37 

006534 

TST4 

001522 

TST40 

006656 

TST41 

007000 

TST42 

00720^ 

TST43 

007332 

TST44 

007542 

TST45 

007664 

TST46 

010076 

TST47 

010224 

TST5 

001642 

TST50 

010436 

TST51 

010560 

TST5)2 

010764 

TST53 

011110 

TST54 

011322 

TST55 

011444 

TST56 

011652 

TST57 

012012 

TST6 

001762 

TST60 

012152 

TST61 

012312 

TST62 

012452 

TST63 

012662 

TST64 

013146 

TST65 

013470 

TST66 

014014 

TST67 

014242 

TST7 

002110 

TST70 

014426 

TST71 

014760 

TST72 

015314 

TTY 

:X000005 

TYPCNT 

016774 

TYPE 

s 000004 

YESRT 

016004 

fPSW 

000600 

$SP 

000602 

,8!T 

s 177777 

.lOT 

017334 

•.PR 

017134 

,PRBUF 

017124 

.PRF 

017044 

,PPl 

017032 

',SAVR6 

017310 

.TBIT 

016002 

.TYPE 

017452 

1 

s 017454 



ERRORS 

CETECTEOI 0 











